Test CArray.^shortname shows sane value

RT#131406: https://rt.perl.org/Ticket/Display.html?id=131406
rakudo · Dec 11, 2017 · 831dab1 · 831dab1
1 parent 20d67a3
commit 831dab1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/t/04-nativecall/05-arrays.t b/t/04-nativecall/05-arrays.t
@@ -5,7 +5,7 @@ use CompileTestLib;
 use NativeCall;
 use Test;
 
-plan 40;
+plan 41;
 
 compile_test_lib('05-arrays');
 
@@ -164,4 +164,8 @@ compile_test_lib('05-arrays');
     lives-ok { CArray[Str].new[my int $ = 1] }, 'native int as index to CArray does not crash'
 }
 
+# RT #131406
+is CArray[Pointer].^shortname, 'CArray[Pointer]',
+    'CArray.^shortname shows sane value';
+
 # vim:ft=perl6