X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=test%2F140-ref.ml;h=65dec497ae66b178740b94a06099e9a76e9d64ad;hb=55318cc354e514953bca429618150bb069e9920d;hp=bf6dd916c628c2d9392820f0408b0eff7762de1f;hpb=186f65548798769d55c2581b55b41ce1bbd6fe90;p=perl4caml.git

diff --git a/test/140-ref.ml b/test/140-ref.ml
index bf6dd91..65dec49 100644
--- a/test/140-ref.ml
+++ b/test/140-ref.ml
@@ -1,5 +1,5 @@
 (* Reference, dereference.
- * $Id: 140-ref.ml,v 1.1 2005-01-28 23:09:33 rich Exp $
+ * $Id: 140-ref.ml,v 1.2 2005-04-14 13:05:12 rich Exp $
  *)
 
 open Perl
@@ -8,12 +8,14 @@ let () =
   let sv = sv_of_int 42 in
   let sv = scalarref sv in
   assert (sv_type sv = SVt_RV);
+  assert (reftype sv = SVt_IV);
   let sv = deref sv in
   assert (42 = int_of_sv sv);
 
   let av = av_of_string_list [ "foo"; "bar" ] in
   let sv = arrayref av in
   assert (sv_type sv = SVt_RV);
+  assert (reftype sv = SVt_PVAV);
   let av = deref_array sv in
   assert (2 = av_length av);
 
@@ -22,6 +24,7 @@ let () =
   hv_set hv "bar" (sv_of_int 2);
   let sv = hashref hv in
   assert (sv_type sv = SVt_RV);
+  assert (reftype sv = SVt_PVHV);
   let hv = deref_hash sv in
   assert (1 = int_of_sv (hv_get hv "foo"));
   assert (2 = int_of_sv (hv_get hv "bar"));