[perl #69915] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-methods/what.t

commit b39906abb54f5c227e39afe5100ad41ba8ae60fc
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Oct 21 18:29:07 2009 +0000

    [t/spec] Tests for RT #69915
    
    git-svn-id: http://svn.pugscode.org/p...@28873 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-methods/what.t b/t/spec/S12-methods/what.t
index d04c6b0..a9cf632 100644
--- a/t/spec/S12-methods/what.t
+++ b/t/spec/S12-methods/what.t
@@ -1,6 +1,6 @@
 use v6;
-
 use Test;
+plan *;
 
 =begin pod
 
@@ -12,8 +12,6 @@ This test tests the C<WHAT> builtin.
 
 # L<S12/Introspection/"WHAT">
 
-plan 15;
-
 # Basic subroutine/method form tests for C<WHAT>.
 {
   my $a = 3;
@@ -67,4 +65,29 @@ plan 15;
     ok &infix:<+>.WHAT ~~ Multi, '.WHAT of built-in infix op is Multi';
 }
 
+# RT #69915
+{
+    sub rt69915f( $a, $b ) { return WHAT($a) ~ '~' ~ WHAT($b) }
+    sub rt69915m( $a, $b ) { return $a.WHAT  ~ '~' ~ $b.WHAT  }
+
+    is rt69915m( a => 42, 23 ), 'Int()~Int()', 'WHAT method on ints';
+
+    #?rakudo 4 todo 'RT 69915'
+    is rt69915f( a => 42, 23 ), 'Int()~Int()', 'WHAT function on ints (1)';
+    is rt69915f( 23, a => 42 ), 'Int()~Int()', 'WHAT function on ints (2)';
+
+    is rt69915f( :a, 23 ), 'Bool()~Int()', 'WHAT function on bool and int';
+    is rt69915m( :a, 23 ), 'Bool()~Int()', 'WHAT method on bool and int';
+
+    sub wm($x) { return $x.WHAT }
+    sub rt69915wm( $a, $b ) { return wm($a) ~ '~' ~ wm($b) }
+    is rt69915wm( a => 42, 23 ), 'Int()~Int()', 'WHAT method on ints via func';
+    
+    sub wf($x) { return WHAT($x) }
+    sub rt69915wf( $a, $b ) { return wf($a) ~ '~' ~ wf($b) }
+    is rt69915wf( a => 42, 23 ), 'Int()~Int()', 'WHAT func on ints via func';
+}
+
+done_testing;
+
 # vim: ft=perl6