#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: spill.t 22180 2007-10-17 19:33:17Z allison $

use strict;
use warnings;

use lib qw( . lib ../lib ../../lib );
use Parrot::Test tests => 1;

# Odd communication with Parrot::Test.
my $args = $ENV{TEST_PROG_ARGS} || '';
$args .= ' '
    if $args;
$args .= '--run-exec';
local $ENV{TEST_PROG_ARGS} = $args;

pir_output_is( <<'CODE', <<'OUTPUT', ".const of null string" );
# NB: This only fails if compiled.
.sub 'main'
     .const .String empty = ''
     print empty
     print "ok\n"
.end
CODE
ok
OUTPUT