#!/usr/bin/perl6
use Test;

use CGI;
my $cgi = CGI.new();
$cgi.init();

print _is-deeply( $cgi.params, eval( %*ENV<TEST_RESULT> ) ) 
      ?? "ok " 
      !! "not ok \n" ~ "got: " ~ $cgi.param.perl ~ 
         "\nexpected: " ~ %*ENV<TEST_RESULT> ~ "\n";

say "- " ~ %*ENV<TEST_NAME>;
