#! perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /local/t/compilers/pge/pge-hs.t 12838 2006-05-30T14:19:10.150135Z coke $
use strict;
use warnings;
use lib qw( t . lib ../lib ../../lib );
use Test::More;
use Parrot::Test;
=head1 NAME
t/library/pge-hs.t - Grammar Engine Haskell Output tests
=head1 SYNOPSIS
% prove t/library/pge-hs.t
=cut
# 1
pir_output_is(<<'CODE', <<'OUT', "PGE::Hs match");
.sub _main
.local pmc match, add_rule
.local string result
load_bytecode "PGE.pbc"
load_bytecode "PGE/Hs.pir"
match = find_global "PGE::Hs", "match"
add_rule = find_global "PGE::Hs", "add_rule"
add_rule("foo", "s")
result = match("test", "t(.<foo>)t")
eq result, "PGE_Match 0 4 [PGE_Match 1 3 [] [(\"foo\", PGE_Match 2 3 [] [])]] []\n", OK
print "not "
OK:
print "ok 1\n"
end
.end
CODE
ok 1
OUT
## remember to change the number of tests :-)
BEGIN { plan tests => 1; }