[svn:parrot] r37988 - branches/packfile_revamp/t/pmc
bacek at svn.parrot.org
bacek at svn.parrot.org
Wed Apr 8 23:44:45 UTC 2009
Author: bacek
Date: Wed Apr 8 23:44:45 2009
New Revision: 37988
URL: https://trac.parrot.org/parrot/changeset/37988
Log:
:retab test file
Modified:
branches/packfile_revamp/t/pmc/packfileconstanttable.t
Modified: branches/packfile_revamp/t/pmc/packfileconstanttable.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfileconstanttable.t Wed Apr 8 23:44:24 2009 (r37987)
+++ branches/packfile_revamp/t/pmc/packfileconstanttable.t Wed Apr 8 23:44:45 2009 (r37988)
@@ -24,12 +24,12 @@
.sub 'main' :main
.include 'test_more.pir'
- 'plan'(10)
+ 'plan'(10)
- 'test_sanity'()
- 'test_elements'()
- 'test_get'()
- 'test_set'()
+ 'test_sanity'()
+ 'test_elements'()
+ 'test_get'()
+ 'test_set'()
.end
@@ -43,8 +43,8 @@
pftable = pfdir[2]
name = typeof pftable
$I0 = cmp name, "PackfileConstantTable"
- $I0 = not $I0
- ok($I0, "PackfileConstantTable sanity check")
+ $I0 = not $I0
+ ok($I0, "PackfileConstantTable sanity check")
.end
@@ -56,7 +56,7 @@
pfdir = pf.'get_directory'()
pftable = pfdir[2]
size = elements pftable
- ok(size, "PackfileConstantTable.elements returns non-zero")
+ ok(size, "PackfileConstantTable.elements returns non-zero")
.end
@@ -91,8 +91,8 @@
$S0 = typeof $P0
eq $S0, 'Key', next
$S0 = concat 'constant Key with wrong type: ', $S0
- ok(0, $S0)
- .return()
+ ok(0, $S0)
+ .return()
next:
this = this + 1
@@ -102,36 +102,36 @@
done:
ok(1, 'PackfileConstantTable.get_*_int works')
- .return()
+ .return()
bad:
- ok(0, 'Unknown constant type')
- .return()
+ ok(0, 'Unknown constant type')
+ .return()
.end
# Test setting constants into PackfileConstantTable
.sub 'test_set'
- .local pmc ct
- .local int size
- ct = new ['PackfileConstantTable']
-
- # Initial PackfileConstantTable is empty
- size = elements ct
- is(size, 0, "Empty PackfileConstantTable created")
-
- # Set first string
- ct[0] = "string"
- $I0 = elements ct
- is($I0, 1, "String element added")
-
- ct[1] = 1.0
- $I0 = elements ct
- is($I0, 2, "Number elements added")
-
- $P0 = new 'Integer'
- $P0 = 42
- ct[2] = $P0
- $I0 = elements ct
- is($I0, 3, "PMC elements added")
+ .local pmc ct
+ .local int size
+ ct = new ['PackfileConstantTable']
+
+ # Initial PackfileConstantTable is empty
+ size = elements ct
+ is(size, 0, "Empty PackfileConstantTable created")
+
+ # Set first string
+ ct[0] = "string"
+ $I0 = elements ct
+ is($I0, 1, "String element added")
+
+ ct[1] = 1.0
+ $I0 = elements ct
+ is($I0, 2, "Number elements added")
+
+ $P0 = new 'Integer'
+ $P0 = 42
+ ct[2] = $P0
+ $I0 = elements ct
+ is($I0, 3, "PMC elements added")
# Check types of created constants
$I0 = ct.'get_type'(0)
More information about the parrot-commits
mailing list