[svn:parrot] r44342 - trunk/t/oo
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Tue Feb 23 01:11:39 UTC 2010
Author: mikehh
Date: Tue Feb 23 01:11:38 2010
New Revision: 44342
URL: https://trac.parrot.org/parrot/changeset/44342
Log:
fix codetest failures - trailing whitespace
Modified:
trunk/t/oo/composition.t
trunk/t/oo/metamodel.t
trunk/t/oo/mro-c3.t
trunk/t/oo/names.t
trunk/t/oo/new-old.t
trunk/t/oo/new.t
Modified: trunk/t/oo/composition.t
==============================================================================
--- trunk/t/oo/composition.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/composition.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -173,7 +173,7 @@
eh = new 'ExceptionHandler'
eh.'handle_types'(.EXCEPTION_ROLE_COMPOSITION_METHOD_CONFLICT)
set_addr eh, catch
-
+
push_eh eh
$P1.'add_role'($P0)
$I0 = 1
Modified: trunk/t/oo/metamodel.t
==============================================================================
--- trunk/t/oo/metamodel.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/metamodel.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#!parrot
-# Copyright (C) 2007-2008, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -71,9 +71,9 @@
unless $I0 goto FAILTAIL
is($P1, "long", "tail attribute has expected value")
goto NEXTTAIL
-FAILTAIL:
+FAILTAIL:
fail("no attribute")
-NEXTTAIL:
+NEXTTAIL:
$P1 = getattribute $P0, "bark"
$I0 = defined $P1
@@ -81,9 +81,9 @@
unless $I0 goto FAIL
is($P1, "Wooof", "bark attribute has expected value")
goto NEXT
-FAIL:
+FAIL:
fail("no attribute")
-NEXT:
+NEXT:
todo(0, "new opcode makes working objects", "not implemented")
# $P0 = new "Dog"
Modified: trunk/t/oo/mro-c3.t
==============================================================================
--- trunk/t/oo/mro-c3.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/mro-c3.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -95,24 +95,24 @@
.sub multiple_inheritance
.local pmc A, B, C
-
+
A = newclass 'MIA'
$P0 = get_global 'method_A'
A.'add_method'('foo', $P0)
A.'add_method'('bar', $P0)
A.'add_method'('baz', $P0)
-
+
B = newclass 'MIB'
$P0 = get_global 'method_B'
B.'add_method'('foo', $P0)
B.'add_method'('bar', $P0)
-
+
C = newclass 'MIC'
C.'add_parent'(B)
C.'add_parent'(A)
$P0 = get_global 'method_C'
C.'add_method'('foo', $P0)
-
+
$P0 = C.'new'()
$S0 = $P0.'foo'()
$S1 = $P0.'bar'()
@@ -187,7 +187,7 @@
$P0 = A.'new'()
$S0 = $P0.'bar'()
is($S0, 'Method from B', 'Merge Two Pairs - Method A.bar added from B')
-
+
.return ()
test_fail:
Modified: trunk/t/oo/names.t
==============================================================================
--- trunk/t/oo/names.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/names.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007-2008, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -46,12 +46,12 @@
$S0 = $P0
ok (1, 'HLL obj created w/ same name as parrot obj')
.return()
-OK_1:
+OK_1:
ok (0, 'HLL obj w/ same name as parrot obj not created')
.end
# Local Variables:
-# mode: pir
+# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Modified: trunk/t/oo/new-old.t
==============================================================================
--- trunk/t/oo/new-old.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/new-old.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2009, Parrot Foundation.
+# Copyright (C) 2009-2010, Parrot Foundation.
# $Id$
use strict;
@@ -19,7 +19,7 @@
=head1 DESCRIPTION
-Tests instantiation
+Tests instantiation
=cut
@@ -56,3 +56,9 @@
CODE
ok #test exception from init vtable
OUT
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: trunk/t/oo/new.t
==============================================================================
--- trunk/t/oo/new.t Tue Feb 23 01:01:38 2010 (r44341)
+++ trunk/t/oo/new.t Tue Feb 23 01:11:38 2010 (r44342)
@@ -1,5 +1,5 @@
#! parrot
-# Copyright (C) 2007-2009, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
=head1 NAME
@@ -52,7 +52,7 @@
#
.sub _test_instance
.param pmc obj
- .param string in_str
+ .param string in_str
# Set up local variables
.local pmc key_pmc
@@ -467,7 +467,7 @@
$P0 = new [ 'Foo'; 'Bar'; 'Baz' ]
$I0 = 1
goto finally
-
+
catch:
.local pmc exception
.get_results(exception)
More information about the parrot-commits
mailing list