From 831dab14226a5ad03e95f4dca8b2b0921ae34b14 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Mon, 11 Dec 2017 17:25:34 +0000
Subject: [PATCH] Test CArray.^shortname shows sane value

RT#131406: https://rt.perl.org/Ticket/Display.html?id=131406
---
 t/04-nativecall/05-arrays.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/04-nativecall/05-arrays.t b/t/04-nativecall/05-arrays.t
index b6fead61b8e..e16fc538a68 100644
--- 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