### ----------------------------------------------------
### -- Grok
### -- Licenses: Artistic-2.0
### -- Authors: Jeff Armstrong
### -- File: xt/84-grok-foreigncode.rakutest
### ----------------------------------------------------
use v6;

use Test;
use Test::Output;

use lib $?FILE.IO.parent;
use TestUtils;

use Grok;

for (
  ForeignCode                            ,
) -> $thing {

  my $file = get-output-name($thing).IO;
  #say $file; next;

  # Generate reference output
  $file.spurt( output-from({grok($thing)}).&purified )
    unless $file.e;

  # Test reference output
  is  output-from( { grok($thing) } ).&purified,
      $file.IO.slurp,
      $thing.^name;

}

say 'done';

done-testing;



