[svn:parrot] r44346 - trunk/t/pmc
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Tue Feb 23 01:58:47 UTC 2010
Author: mikehh
Date: Tue Feb 23 01:58:45 2010
New Revision: 44346
URL: https://trac.parrot.org/parrot/changeset/44346
Log:
fix codetest failures - trailing whitespace
Modified:
trunk/t/pmc/capture.t
trunk/t/pmc/class.t
trunk/t/pmc/filehandle.t
trunk/t/pmc/fixedintegerarray.t
trunk/t/pmc/hash.t
trunk/t/pmc/lexinfo.t
trunk/t/pmc/parrotinterpreter.t
trunk/t/pmc/ro.t
trunk/t/pmc/stringhandle.t
trunk/t/pmc/sub.t
Modified: trunk/t/pmc/capture.t
==============================================================================
--- trunk/t/pmc/capture.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/capture.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -79,7 +79,7 @@
$I0 = capt[11]
is($I0, 7, 'get_integer_keyed_int')
-
+
$P0 = capt[10]
is($P0, 'six', 'get_pmc_keyed_int')
@@ -106,13 +106,13 @@
$I0 = shift capt
is($I0, 11, 'shift an integer')
-
+
$P0 = shift capt
is($P0, 'ten', 'shift a PMC')
-
+
$N0 = shift capt
is($N0, 9.5, 'shift a number')
-
+
$S0 = shift capt
is($S0, '8', 'shift a string')
@@ -136,7 +136,7 @@
$P0 = capt['gamma']
is($P0, 'fourteen', 'get_pmc_keyed_str')
-
+
$N0 = capt['beta']
is($N0, 13.5, 'get_number_keyed_str')
Modified: trunk/t/pmc/class.t
==============================================================================
--- trunk/t/pmc/class.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/class.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007-2008, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-.const int TESTS = 63
+.const int TESTS = 63
.sub 'main' :main
Modified: trunk/t/pmc/filehandle.t
==============================================================================
--- trunk/t/pmc/filehandle.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/filehandle.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#!perl
-# Copyright (C) 2006-2008, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
use strict;
@@ -258,7 +258,7 @@
counter = 0
read_loop:
- inc counter
+ inc counter
# read in the file one line at a time...
\$I0 = filehandle.'eof'()
if \$I0 goto end_read_loop
@@ -444,7 +444,7 @@
\$P0.'print'(1234567890)
\$P0.'print'("\\n")
- \$S0 = iso-8859-1:"TÖTSCH"
+ \$S0 = iso-8859-1:"TÖTSCH"
\$P0.'print'(\$S0)
\$P0.'close'()
@@ -551,7 +551,7 @@
.local pmc ifh
ifh = new ['FileHandle']
ifh.'encoding'('utf8')
-
+
\$S0 = ifh.'readall'('$temp_file')
\$I0 = encoding \$S0
Modified: trunk/t/pmc/fixedintegerarray.t
==============================================================================
--- trunk/t/pmc/fixedintegerarray.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/fixedintegerarray.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -164,7 +164,7 @@
$P0[1023] = $P1
$P2 = new ['Key']
-
+
$P2 = 25
$I0 = $P0[$P2]
is($I0, 125, "Get INTVAL via Key works")
@@ -218,7 +218,7 @@
a2 = new ['FixedIntegerArray']
is(a1, a2, "Empty arrays are equal")
-
+
a1 = 3
isnt(a1, a2, "Different size arrays aren't equal")
@@ -230,7 +230,7 @@
a1[1] = 84
isnt(a1, a2, "Not equal when second element differ")
-
+
a2[1] = 84
is(a1, a2, "Equal when second element same")
.end
Modified: trunk/t/pmc/hash.t
==============================================================================
--- trunk/t/pmc/hash.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/hash.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -678,7 +678,7 @@
s1 = get_repr h
s2 = get_repr cloned
if s1 != s2 goto fail
-
+
goto end
fail:
all_ok = 0
@@ -755,7 +755,7 @@
s1 = get_repr h
s2 = get_repr cloned
if s1 != s2 goto fail
-
+
goto end
fail:
all_ok = 0
@@ -1437,7 +1437,7 @@
types[$S0] = 1
goto loop
done:
-
+
$I0 = elements types
is($I0, 3, "Got 3 different types of PMC keys")
$I0 = types['ResizableStringArray']
Modified: trunk/t/pmc/lexinfo.t
==============================================================================
--- trunk/t/pmc/lexinfo.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/lexinfo.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -39,7 +39,7 @@
.sub inspect_test
.lex "$a", $P0
.lex "$b", $P1
-
+
$P2 = new 'ParrotInterpreter'
$P2 = $P2['sub']
$P2 = $P2.'get_lexinfo'()
Modified: trunk/t/pmc/parrotinterpreter.t
==============================================================================
--- trunk/t/pmc/parrotinterpreter.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/parrotinterpreter.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2006-2009, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -83,11 +83,11 @@
$P0 = interp['namespace';0]
$I0 = isa $P0, 'NameSpace'
ok($I0, 'Got ParrotInterp.namespace')
-
+
$P0 = interp['continuation';0]
$I0 = isa $P0, 'Continuation'
ok($I0, 'Got ParrotInterp.continuation')
-
+
$P0 = interp['annotations';1]
$S0 = $P0['foo']
is($S0, 'bar', 'Got ParrotInterp.annotations')
Modified: trunk/t/pmc/ro.t
==============================================================================
--- trunk/t/pmc/ro.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/ro.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2006-2007, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -225,7 +225,7 @@
=pod
-TT #1036: should this work?
+TT #1036: should this work?
.sub resizablepmcarray_recursive
.local pmc foo
Modified: trunk/t/pmc/stringhandle.t
==============================================================================
--- trunk/t/pmc/stringhandle.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/stringhandle.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#!perl
-# Copyright (C) 2006-2008, Parrot Foundation.
+# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
use strict;
@@ -255,7 +255,7 @@
counter = 0
write_loop:
- inc counter
+ inc counter
if counter > 10000 goto end_write_loop
stringhandle.'print'(counter)
@@ -268,7 +268,7 @@
counter = 0
read_loop:
- inc counter
+ inc counter
# read in the file one line at a time...
$I0 = stringhandle.'eof'()
if $I0 goto end_read_loop
@@ -448,7 +448,7 @@
\$P0.'print'(1234567890)
\$P0.'print'("\\n")
- \$S0 = iso-8859-1:"TÖTSCH"
+ \$S0 = iso-8859-1:"TÖTSCH"
\$P0.'print'(\$S0)
\$P0.'close'()
@@ -549,7 +549,7 @@
.local pmc ifh
ifh = new ['StringHandle']
ifh.'encoding'('utf8')
-
+
\$S0 = ifh.'readall'('temp_file')
\$I0 = encoding \$S0
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t Tue Feb 23 01:49:10 2010 (r44345)
+++ trunk/t/pmc/sub.t Tue Feb 23 01:58:45 2010 (r44346)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
# $Id$
use strict;
@@ -1425,12 +1425,12 @@
PIR
$P1 = compreg 'PIR'
$P1 = $P1($S1)
-
+
$P3 = new 'ParrotInterpreter'
$P3 = $P3['sub']
$P2 = $P1[0]
$P2.'set_outer'($P3)
-
+
$P1()
.end
CODE
@@ -1637,11 +1637,11 @@
pir_output_is( <<'CODE', <<'OUTPUT', 'init_pmc' );
.sub 'main'
.local pmc init, s, regs, arg_info
-
+
init = new ['Hash']
init['start_offs'] = 42
init['end_offs'] = 115200
-
+
regs = new ['FixedIntegerArray']
regs = 4
regs[0] = 1
@@ -1694,7 +1694,7 @@
$P0 = inspect s, 'pos_optional'
print 'pos_optional '
say $P0
-
+
$P0 = inspect s, 'pos_slurpy'
print 'pos_slurpy '
say $P0
More information about the parrot-commits
mailing list