PerlQt/tutorials/runall.pl


1
2
3
4
5
6
7
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("..");
}