[wsg] sort input test file list

Author: paultcochrane

categories/wsg/beginner-2008/event003-unobe.pl

@@ -36,7 +36,7 @@
 =end pod
 
 my $run-dir = $*PROGRAM_NAME.IO.dirname;
-my @files = dir($run-dir);
+my @files = dir($run-dir).sort;
 my $output = $run-dir ~ '/newfile.txt';
 $output.IO.unlink if $output.IO.e;
 

t/categories/wsg/beginner-2008.t

@@ -25,10 +25,10 @@ subtest {
     my @authors = <unobe>;
     my $expected-output = q:to/EOD/;
     Dulce et decorum est...
-    "There is no such thing on earth as an uninteresting subject; the only
-    T
     "There have always been literate ignoramuses who have read too widely and not
     3
+    "There is no such thing on earth as an uninteresting subject; the only
+    T
     EOD
 
     my $name = $problem ~ '-' ~ @authors[0] ~ '.pl';