t/ook.t

   1 #!perl
   2 #
   3 # This file is part of Language::Ook.
   4 # Copyright (c) 2002-2007 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use File::Spec::Functions;
  13 use Language::Ook;
  14 use POSIX qw! tmpnam !;
  15 use Test;
  16 BEGIN { plan tests => 2 };
  17
  18 #
  19
  20 # Classic hello world.
  21 my %tests = ( "hello.ook" =>  "Hello, world!\n",
  22               "test.ook"  =>  "1..1\nok 1\n",
  23             );
  24 for my $f ( sort keys %tests ) {
  25     my $file = tmpnam();
  26     open OUT, ">$file" or die $!;
  27     my $fh = select OUT;
  28     my $interp = new Language::Ook;
  29     $interp->read_file( catfile( "examples", $f ) );
  30     $interp->run_code;
  31     select $fh;
  32     close OUT;
  33     open OUT, "<$file" or die $!;
  34     my $content;
  35     {
  36         local $/;
  37         $content = <OUT>;
  38     }
  39     close OUT;
  40     unlink $file;
  41     ok( $content, $tests{$f} );
  42 }