This is an automatically generated mail to inform you that tests are now
available in at least one of these files: t/spec/S03-operators/bit.t,
t/spec/integration/real-strings.t
commit 5ae130e70da1e0276ef5350a8b93f3605dd3cead
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sat Nov 14 19:47:18 2009 +0000
[t/spec] move tests for RT #67852 to integration/real-strings.t
git-svn-id: http://svn.pugscode.org/p...@29088
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S03-operators/bit.t b/t/spec/S03-operators/bit.t
index fde6101..410ae9c 100644
--- a/t/spec/S03-operators/bit.t
+++ b/t/spec/S03-operators/bit.t
@@ -4,7 +4,7 @@ use Test;
# Mostly copied from Perl 5.8.4 s t/op/bop.t
-plan 24;
+plan 22;
# test the bit operators '&', '|', '^', '+<', and '+>'
@@ -98,11 +98,4 @@ plan 24;
#if ("ok \xFF\x{FF}\n" ~& "ok 41\n" eq "ok 41\n") { say "ok 19" } else { say
"not ok 19" }
#if ("ok \x{FF}\xFF\n" ~& "ok 42\n" eq "ok 42\n") { say "ok 20" } else { say
"not ok 20" }
-# RT #67852
-{
- lives_ok { 'normal'.trans() }, 'can .trans() on normal string';
- #?rakudo todo 'RT #67852'
- lives_ok { ('bit' ~& 'wise').trans() }, 'can .trans() on bitwise result';
-}
-
# vim: ft=perl6
diff --git a/t/spec/integration/real-strings.t
b/t/spec/integration/real-strings.t
index 9707aee..6a01298 100644
--- a/t/spec/integration/real-strings.t
+++ b/t/spec/integration/real-strings.t
@@ -58,6 +58,12 @@ is "helo".lc.trans(("aeiou" => "AEIOU")), 'hElO',
'.flip.trans (RT 66300)';
is $x, +%*VM.keys, '%*VM.kv is self-consistent';
}
+# RT #67852
+{
+ lives_ok { 'normal'.trans() }, 'can .trans() on normal string';
+ #?rakudo todo 'RT 67852'
+ lives_ok { ('bit' ~& 'wise').trans() }, 'can .trans() on bitwise result';
+}
done_testing;
# vim: ft=perl6
