lib/FiboTest.pm

   1 package FiboTest;
   2
   3 use File::Copy;
   4 use File::Path qw{ mkpath rmtree };
   5 use FindBin    qw{ $Bin };
   6 use Test::More tests => 1;
   7
   8 use parent qw{ Exporter };
   9 our @EXPORT = qw{ fibo_check };
  10
  11 # fibo_check( $lang, $ext, $cmd )
  12 sub fibo_check {
  13     my ($lang, $ext, $cmd) = @_;
  14
  15     # clean room for the test
  16     my $dir = "$Bin/tmp/$lang";
  17     rmtree($dir);
  18     mkpath($dir);
  19
  20     # get expected result
  21     my $want = do { local $/; <DATA> };
  22
  23     # run the test
  24     copy( "$Bin/../fibonacci.txt", "$dir/fibonacci.$ext");
  25     my $command = sprintf "cd $dir; $cmd 2>&1", "fibonacci.$ext";
  26     my $have = qx{ $command };
  27
  28     is( $have, $want, "language $lang test");
  29
  30     # clean after ourselve
  31     rmtree($dir) unless $ENV{POLYGLOT_DEBUG};
  32 }
  33
  34 1;
  35
  36 __DATA__
  37 1
  38 1
  39 2
  40 3
  41 5
  42 8
  43 13
  44 21
  45 34
  46 55