summaryrefslogtreecommitdiffstats
path: root/PerlQt/tutorials/runall.pl
diff options
context:
space:
mode:
authorTimothy Pearson <[email protected]>2011-12-18 03:08:08 -0600
committerTimothy Pearson <[email protected]>2011-12-18 03:08:08 -0600
commitbcc95cd92ca12c1783464b8ada6816d430dc0e98 (patch)
tree4701c447365db5392df0174b4bb00b5b5c369da4 /PerlQt/tutorials/runall.pl
downloadlibtqt-perl-bcc95cd92ca12c1783464b8ada6816d430dc0e98.tar.gz
libtqt-perl-bcc95cd92ca12c1783464b8ada6816d430dc0e98.zip
Initial import of libqt-perl (not yet TQt compatible)
Diffstat (limited to 'PerlQt/tutorials/runall.pl')
-rw-r--r--PerlQt/tutorials/runall.pl8
1 files changed, 8 insertions, 0 deletions
diff --git a/PerlQt/tutorials/runall.pl b/PerlQt/tutorials/runall.pl
new file mode 100644
index 0000000..d0363f1
--- /dev/null
+++ b/PerlQt/tutorials/runall.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -w
+# Use the tutorials as a test suite
+@tutorials = (sort(glob("t?")), sort(glob("t??")));
+for $tutorial (@tutorials) {
+ chdir($tutorial) || next;
+ system("$^X -w $tutorial.pl");
+ chdir("..");
+}