1 files changed, 8 insertions, 0 deletions
diff --git a/ext/XS-APItest/t/hash.t b/ext/XS-APItest/t/hash.t
index de42a1df81..f66edfa1f5 100644
--- a/ext/XS-APItest/t/hash.t
+++ b/ext/XS-APItest/t/hash.t
@@ -237,6 +237,14 @@ sub test_precomputed_hashes {
 	'multiple stash aliases (bytes inside utf8) do not cause bad UTF8';
 }
 
+{ # newHVhv
+    use Tie::Hash;
+    tie my %h, 'Tie::StdHash';
+    %h = 1..10;
+    is join(' ', sort %{newHVhv \%h}), '1 10 2 3 4 5 6 7 8 9',
+      'newHVhv on tied hash';
+}
+
 done_testing;
 exit;