Changeset 22869 for t

Timestamp:

11/04/08 17:56:11 (2 months ago)

Author:

jnthn

Message:

[spectest] Some fudging/unfudging to add another test to Rakudo.

Files:

• t/spec/S12-class/basic.t (modified) (3 diffs)

t/spec/S12-class/basic.t

@@ -21 +21 @@
 # override the behaviour without playing with the metamodel via traits
 ok($foo.isa(Foo), '.isa(Foo)');
-#?rakudo 1 skip 'parse error'
 ok($foo.isa(::Foo), '.isa(::Foo)');
 ok($foo.isa("Foo"), '.isa("Foo")');
 ok(!$foo.isa("Bar"), '!.isa("Bar")');
 
-my $foo_clone = $foo.clone();
-ok($foo_clone ~~ Foo, '... smartmatch our $foo_clone to the Foo class');
+#?rakudo skip 'clone not yet implemetned'
+{
+    my $foo_clone = $foo.clone();
+    ok($foo_clone ~~ Foo, '... smartmatch our $foo_clone to the Foo class');
+}
 
 class Foo::Bar {}
@@ -35 +37 @@
 
 ok($foo_bar.isa(Foo::Bar), '.isa(Foo::Bar)');
-#?rakudo 1 skip 'parse error'
 ok(!$foo_bar.isa(::Foo), '!Foo::Bar.new.isa(::Foo)');
 
@@ -50 +51 @@
 ok($bar.isa(Foo), "new Bar .isa(Foo)");
 
-my $bar_clone = $bar.clone();
-ok($bar_clone ~~ Bar, '... smartmatch our $bar_clone to the Bar class');
-ok($bar_clone.isa(Bar), "... .isa(Bar)");
-ok($bar_clone ~~ Foo, '... smartmatch our $bar_clone to the Foo class');
-ok($bar_clone.isa(Foo), "... .isa(Foo)");
-
+#?rakudo skip 'clone not yet implemetned'
+#?DOES 4
+{
+    my $bar_clone = $bar.clone();
+    ok($bar_clone ~~ Bar, '... smartmatch our $bar_clone to the Bar class');
+    ok($bar_clone.isa(Bar), "... .isa(Bar)");
+    ok($bar_clone ~~ Foo, '... smartmatch our $bar_clone to the Foo class');
+    ok($bar_clone.isa(Foo), "... .isa(Foo)");
+}
 
 # Same, but with the "is Foo" declaration inlined
-#?rakudo 5 skip 'not parsing is inside class yet'
+#?rakudo skip 'not parsing is inside class yet'
 #?DOES 3
-class Baz { is Foo }
-ok(Baz ~~ Foo, '... smartmatch our Baz to the Foo class');
-my $baz = Baz.new();
-ok($baz ~~ Baz, '... smartmatch our $baz to the Baz class');
-ok($baz.isa(Baz), "... .isa(Baz)");
-
+{
+    class Baz { is Foo }
+    ok(Baz ~~ Foo, '... smartmatch our Baz to the Foo class');
+    my $baz = Baz.new();
+    ok($baz ~~ Baz, '... smartmatch our $baz to the Baz class');
+    ok($baz.isa(Baz), "... .isa(Baz)");
+}