Skip to content
This repository has been archived by the owner on Jun 9, 2018. It is now read-only.

Commit

Permalink
add messages
Browse files Browse the repository at this point in the history
  • Loading branch information
@fperrad
fperrad committed Sep 5, 2009
1 parent 73a8d05 commit 4651065
Show file tree
Hide file tree
Showing 10 changed files with 53 additions and 53 deletions.
10 changes: 5 additions & 5 deletions t/pmc/boolean.t
View file
Expand Up @@ -33,15 +33,15 @@ Tests C<WmlsBoolean> PMC
.sub 'check_inheritance'
$P0 = new 'WmlsBoolean'
$I0 = isa $P0, 'Boolean'
is($I0, 1)
is($I0, 1, "check inheritance")
$I0 = isa $P0, 'WmlsBoolean'
is($I0, 1)
.end

.sub 'check_interface'
$P0 = new 'WmlsBoolean'
$I0 = does $P0, 'scalar'
is($I0, 1)
is($I0, 1, "check interface")
$I0 = does $P0, 'boolean'
is($I0, 1)
$I0 = does $P0, 'integer'
Expand All @@ -53,14 +53,14 @@ Tests C<WmlsBoolean> PMC
.sub 'check_name'
$P0 = new 'WmlsBoolean'
$S0 = typeof $P0
is($S0, 'WmlsBoolean')
is($S0, 'WmlsBoolean', "check name")
.end

.sub 'check_get_string'
$P0 = new 'WmlsBoolean'
set $P0, 0
$S0 = $P0
is($S0, 'false')
is($S0, 'false', "check get_string")
set $P0, 1
$S0 = $P0
is($S0, 'true')
Expand All @@ -72,7 +72,7 @@ Tests C<WmlsBoolean> PMC
$P1 = clone $P0
set $P0, 0
$S0 = typeof $P1
is($S0, 'WmlsBoolean')
is($S0, 'WmlsBoolean', "check clone")
$S0 = $P1
is($S0, 'true')
$S0 = $P0
Expand Down
8 changes: 4 additions & 4 deletions t/pmc/boolean_hll.t
View file
Expand Up @@ -34,15 +34,15 @@ Tests C<WmlsBoolean> PMC
$P0 = new 'WmlsBoolean'
set $P0, 1
$S0 = $P0
is($S0, 'true')
is($S0, 'true', "check HLL")
$I0 = isa $P0, 'WmlsBoolean'
is($I0, 1)
.end

.sub 'check_istrue'
.const 'WmlsBoolean' K = '1'
$S0 = K
is($S0, 'true')
is($S0, 'true', "check istrue")
$P0 = istrue K
$S0 = $P0
is($S0, 'true')
Expand All @@ -53,7 +53,7 @@ Tests C<WmlsBoolean> PMC
.sub 'check_typeof'
.const 'WmlsBoolean' K = '1'
$S0 = K
is($S0, 'true')
is($S0, 'true', "check typeof")
$P0 = typeof K
$S0 = $P0
is($S0, 3)
Expand All @@ -64,7 +64,7 @@ Tests C<WmlsBoolean> PMC
.sub 'check_defined'
.const 'WmlsBoolean' K = '1'
$S0 = K
is($S0, 'true')
is($S0, 'true', "check defined")
$P0 = defined K
$S0 = $P0
is($S0, 'true')
Expand Down
10 changes: 5 additions & 5 deletions t/pmc/float.t
View file
Expand Up @@ -32,15 +32,15 @@ Tests C<WmlsFloat> PMC
.sub 'check_inheritance'
$P0 = new 'WmlsFloat'
$I0 = isa $P0, 'Float'
is($I0, 1)
is($I0, 1, "check inheritance")
$I0 = isa $P0, 'WmlsFloat'
is($I0, 1)
.end

.sub 'check_interface'
$P0 = new 'WmlsFloat'
$I0 = does $P0, 'scalar'
is($I0, 1)
is($I0, 1, "check interface")
$I0 = does $P0, 'float'
is($I0, 1)
$I0 = does $P0, 'no_interface'
Expand All @@ -50,7 +50,7 @@ Tests C<WmlsFloat> PMC
.sub 'check_name'
$P0 = new 'WmlsFloat'
$S0 = typeof $P0
is($S0, 'WmlsFloat')
is($S0, 'WmlsFloat', "check name")
.end

.sub 'check_clone'
Expand All @@ -59,7 +59,7 @@ Tests C<WmlsFloat> PMC
$P1 = clone $P0
set $P0, 1.57
$S0 = typeof $P1
is($S0, 'WmlsFloat')
is($S0, 'WmlsFloat', "check clone")
$S0 = $P1
is($S0, 3.14)
$S0 = $P0
Expand All @@ -70,7 +70,7 @@ Tests C<WmlsFloat> PMC
$P0 = new 'WmlsFloat'
set $P0, 3.14
$I0 = istrue $P0
is($I0, 1)
is($I0, 1, "check get_bool")
set $P0, 0.0
$I0 = istrue $P0
is($I0, 0)
Expand Down
12 changes: 6 additions & 6 deletions t/pmc/float_hll.t
View file
Expand Up @@ -36,23 +36,23 @@ Tests C<WmlsFloat> PMC
$P0 = new 'WmlsFloat'
set $P0, 3.14
$S0 = $P0
is($S0, '3.14')
is($S0, '3.14', "check HLL")
$I0 = isa $P0, 'WmlsFloat'
is($I0, 1)
.end

.sub 'check_HLL_const'
.const 'WmlsFloat' K = '3.14'
$S0 = K
is($S0, '3.14')
is($S0, '3.14', "check HLL & .const")
$I0 = isa K, 'WmlsFloat'
is($I0, 1)
.end

.sub 'check_istrue'
.const 'WmlsFloat' K = '3.14'
$S0 = K
is($S0, '3.14')
is($S0, '3.14', "check istrue")
$P0 = istrue K
$S0 = $P0
is($S0, 'true')
Expand All @@ -63,7 +63,7 @@ Tests C<WmlsFloat> PMC
.sub 'check_typeof'
.const 'WmlsFloat' K = '3.14'
$S0 = K
is($S0, '3.14')
is($S0, '3.14', "check typeof")
$P0 = typeof K
$S0 = $P0
is($S0, 1)
Expand All @@ -74,7 +74,7 @@ Tests C<WmlsFloat> PMC
.sub 'check_defined'
.const 'WmlsFloat' K = '3.14'
$S0 = K
is($S0, '3.14')
is($S0, '3.14', "check defined")
$P0 = defined K
$S0 = $P0
is($S0, 'true')
Expand All @@ -85,7 +85,7 @@ Tests C<WmlsFloat> PMC
.sub 'check_box'
$P0 = box 3.14
$S0 = $P0
is($S0, '3.14')
is($S0, '3.14', "check box")
$S0 = typeof $P0
is($S0, 'WmlsFloat')
.end
Expand Down
10 changes: 5 additions & 5 deletions t/pmc/integer.t
View file
Expand Up @@ -32,15 +32,15 @@ Tests C<WmlsInteger> PMC
.sub 'check_inheritance'
$P0 = new 'WmlsInteger'
$I0 = isa $P0, 'Integer'
is($I0, 1)
is($I0, 1, "check inheritance")
$I0 = isa $P0, 'WmlsInteger'
is($I0, 1)
.end

.sub 'check_interface'
$P0 = new 'WmlsInteger'
$I0 = does $P0, 'scalar'
is($I0, 1)
is($I0, 1, "check interface")
$I0 = does $P0, 'integer'
is($I0, 1)
$I0 = does $P0, 'no_interface'
Expand All @@ -50,7 +50,7 @@ Tests C<WmlsInteger> PMC
.sub 'check_name'
$P0 = new 'WmlsInteger'
$S0 = typeof $P0
is($S0, 'WmlsInteger')
is($S0, 'WmlsInteger', "check name")
.end

.sub 'check_clone'
Expand All @@ -59,7 +59,7 @@ Tests C<WmlsInteger> PMC
$P1 = clone $P0
set $P0, -5
$S0 = typeof $P1
is($S0, 'WmlsInteger')
is($S0, 'WmlsInteger', "check clone")
$S0 = $P1
is($S0, 10)
$S0 = $P0
Expand All @@ -70,7 +70,7 @@ Tests C<WmlsInteger> PMC
$P0 = new 'WmlsInteger'
set $P0, 42
$I0 = istrue $P0
is($I0, 1)
is($I0, 1, "check get_bool")
set $P0, 0
$I0 = istrue $P0
is($I0, 0)
Expand Down
12 changes: 6 additions & 6 deletions t/pmc/integer_hll.t
View file
Expand Up @@ -36,23 +36,23 @@ Tests C<WmlsInteger> PMC
$P0 = new 'WmlsInteger'
set $P0, 42
$S0 = $P0
is($S0, '42')
is($S0, '42', "check HLL")
$I0 = isa $P0, 'WmlsInteger'
is($I0, 1)
.end

.sub 'check_HLL_const'
.const 'WmlsInteger' K = '42'
$S0 = K
is($S0, '42')
is($S0, '42', "check HLL & .const")
$I0 = isa K, 'WmlsInteger'
is($I0, 1)
.end

.sub 'check_istrue'
.const 'WmlsInteger' K = '42'
$S0 = K
is($S0, '42')
is($S0, '42', "check istrue")
$P0 = istrue K
$S0 = $P0
is($S0, 'true')
Expand All @@ -63,7 +63,7 @@ Tests C<WmlsInteger> PMC
.sub 'check_typeof'
.const 'WmlsInteger' K = '42'
$S0 = K
is($S0, '42')
is($S0, '42', "check typeof")
$P0 = typeof K
$S0 = $P0
is($S0, 0)
Expand All @@ -74,7 +74,7 @@ Tests C<WmlsInteger> PMC
.sub 'check_defined'
.const 'WmlsInteger' K = '42'
$S0 = K
is($S0, '42')
is($S0, '42', "check defined")
$P0 = defined K
$S0 = $P0
is($S0, 'true')
Expand All @@ -85,7 +85,7 @@ Tests C<WmlsInteger> PMC
.sub 'check_box'
$P0 = box 42
$S0 = $P0
is($S0, '42')
is($S0, '42', "check box")
$S0 = typeof $P0
is($S0, 'WmlsInteger')
.end
Expand Down
10 changes: 5 additions & 5 deletions t/pmc/invalid.t
View file
Expand Up @@ -32,36 +32,36 @@ Tests C<WmlsInvalid> PMC
.sub 'check_inheritance'
$P0 = new 'WmlsInvalid'
$I0 = isa $P0, 'Undef'
is($I0, 1)
is($I0, 1, "check inheritance")
$I0 = isa $P0, 'WmlsInvalid'
is($I0, 1)
.end

.sub 'check_interface'
$P0 = new 'WmlsInvalid'
$I0 = does $P0, 'scalar'
is($I0, 1)
is($I0, 1, "check interface")
$I0 = does $P0, 'no_interface'
is($I0, 0)
.end

.sub 'check_name'
$P0 = new 'WmlsInvalid'
$S0 = typeof $P0
is($S0, 'WmlsInvalid')
is($S0, 'WmlsInvalid', "check name")
.end

.sub 'check_get_string'
$P0 = new 'WmlsInvalid'
$S0 = $P0
is($S0, 'invalid')
is($S0, 'invalid', "check get_string")
.end

.sub 'check_clone'
$P0 = new 'WmlsInvalid'
$P1 = clone $P0
$S0 = typeof $P1
is($S0, 'WmlsInvalid')
is($S0, 'WmlsInvalid', "check clone")
$S0 = $P1
is($S0, 'invalid')
.end
Expand Down
8 changes: 4 additions & 4 deletions t/pmc/invalid_hll.t
View file
Expand Up @@ -33,15 +33,15 @@ Tests C<WmlsInvalid> PMC
.sub 'check_HLL'
$P0 = new 'WmlsInvalid'
$S0 = $P0
is($S0, 'invalid')
is($S0, 'invalid', "check HLL")
$I0 = isa $P0, 'WmlsInvalid'
is($I0, 1)
.end

.sub 'check_istrue'
$P0 = new 'WmlsInvalid'
$S0 = $P0
is($S0, 'invalid')
is($S0, 'invalid', "check istrue")
$P0 = istrue $P0
$S0 = $P0
is($S0, 'invalid')
Expand All @@ -52,7 +52,7 @@ Tests C<WmlsInvalid> PMC
.sub 'check_typeof'
$P0 = new 'WmlsInvalid'
$S0 = $P0
is($S0, 'invalid')
is($S0, 'invalid', "check typeof")
$P1 = typeof $P0
$S0 = $P1
is($S0, 4)
Expand All @@ -63,7 +63,7 @@ Tests C<WmlsInvalid> PMC
.sub 'check_defined'
$P0 = new 'WmlsInvalid'
$S0 = $P0
is($S0, 'invalid')
is($S0, 'invalid', "check defined")
$P1 = defined $P0
$S0 = $P1
is($S0, 'false')
Expand Down

0 comments on commit 4651065

Please sign in to comment.