use v6-alpha;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}