Ticket #1243: pbc.t

File pbc.t, 0.6 KB (added by jkeenan, 5 years ago)

Bob Rogers' test file

Line 
1#!perl
2# Copyright (C) 2001-2005, The Perl Foundation.
3# $Id: spill.t 22180 2007-10-17 19:33:17Z allison $
4
5use strict;
6use warnings;
7
8use lib qw( . lib ../lib ../../lib );
9use Parrot::Test tests => 1;
10
11# Odd communication with Parrot::Test.
12my $args = $ENV{TEST_PROG_ARGS} || '';
13$args .= ' '
14    if $args;
15$args .= '--run-exec';
16local $ENV{TEST_PROG_ARGS} = $args;
17
18pir_output_is( <<'CODE', <<'OUTPUT', ".const of null string" );
19# NB: This only fails if compiled.
20.sub 'main'
21     .const .String empty = ''
22     print empty
23     print "ok\n"
24.end
25CODE
26ok
27OUTPUT