Author: petergibbs Date: Fri Jul 25 13:54:12 2008 New Revision: 29738 Added: trunk/t/op/sprintf2.t
Log: New test file to exercise tests that the sprintf.t harness cannot handle at present. Added: trunk/t/op/sprintf2.t ============================================================================== --- (empty file) +++ trunk/t/op/sprintf2.t Fri Jul 25 13:54:12 2008 @@ -0,0 +1,68 @@ +#!perl +# Copyright (C) 2001-2008, The Perl Foundation. +# $Id: sprintf2.t $ + +use strict; +use warnings; +use lib qw( . lib ../lib ../../lib ); + +use Test::More; +use Parrot::Test tests => 3; + +=head1 NAME + +t/op/sprintf2.t - Auxilliary tests for the sprintf opcode + +=head1 SYNOPSIS + + % prove t/op/sprintf2.t + +=head1 DESCRIPTION + +Executes sprintf tests that sprintf.t can't handle yet. + +=cut + +pir_output_is( <<'CODE', <<'OUTPUT', 'positive length' ); +.sub main + $P0 = new 'ResizableIntegerArray' + push $P0, 4 + push $P0, 12 + $S0 = sprintf "<%*d>", $P0 + say $S0 +.end +CODE +< 12> +OUTPUT + +pir_output_is( <<'CODE', <<'OUTPUT', 'negative length' ); +.sub main + $P0 = new 'ResizableIntegerArray' + push $P0, -4 + push $P0, 12 + $S0 = sprintf "<%*d>", $P0 + say $S0 +.end +CODE +<12 > +OUTPUT + +pir_output_is( <<'CODE', <<'OUTPUT', 'minus option, positive length' ); +.sub main + $P0 = new 'ResizableIntegerArray' + push $P0, 4 + push $P0, 12 + $S0 = sprintf "<%-*d>", $P0 + say $S0 +.end +CODE +<12 > +OUTPUT + + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4:
