[wsg] sort input test file list

Raku · May 7, 2015 · f53afbe · f53afbe
1 parent 228f7a6
commit f53afbe
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/categories/wsg/beginner-2008/event003-unobe.pl b/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;
 

diff --git a/t/categories/wsg/beginner-2008.t b/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';