Add a dbus test script

dsheeler · Sep 10, 2024 · e44aa6e · e44aa6e
1 parent 5374cd0
commit e44aa6e
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/dbus_test.pl b/dbus_test.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use Time::HiRes qw(usleep nanosleep);
+
+sleep 5;
+system('gnome-extensions enable CoverflowAltTab@palatis.blogspot.com');
+usleep 500000;
+system('gdbus call --session --dest org.gnome.Shell.Extensions.Coverflowalttab --object-path /org/gnome/Shell/Extensions/Coverflowalttab --method org.gnome.Shell.Extensions.Coverflowalttab.launch "applications"');
+sleep 1;
+
+system('gdbus call --session --dest org.gnome.Shell.Extensions.Coverflowalttab --object-path /org/gnome/Shell/Extensions/Coverflowalttab --method org.gnome.Shell.Extensions.Coverflowalttab.next');
+sleep 1;
+system('gdbus call --session --dest org.gnome.Shell.Extensions.Coverflowalttab --object-path /org/gnome/Shell/Extensions/Coverflowalttab --method org.gnome.Shell.Extensions.Coverflowalttab.next');
+usleep 100000;
+system('gnome-extensions disable CoverflowAltTab@palatis.blogspot.com');
+