Added 'make test' and some test scripts which exercise parts of the

[perl4caml.git] / test / 110-av.ml

diff --git a/test/110-av.ml b/test/110-av.ml
new file mode 100644 (file)
index 0000000..b1f1b01
--- /dev/null
+++ b/test/110-av.ml
@@ -0,0 +1,41 @@
+(* Thoroughly test AV-related functions.
+ * $Id: 110-av.ml,v 1.1 2005-01-28 23:09:33 rich Exp $
+ *)
+
+open Perl
+
+let () =
+  let av = av_empty () in
+  assert ([] = list_of_av av);
+  av_push av (sv_of_int 42);
+  av_push av (sv_of_int 84);
+  av_unshift av (sv_of_int 21);
+  av_set av 0 (sv_of_int 11);
+  assert (3 = av_length av);
+  assert (84 = int_of_sv (av_pop av));
+  assert (2 = av_length av);
+  assert (11 = int_of_sv (av_shift av));
+  assert (1 = av_length av);
+  assert (42 = int_of_sv (av_pop av));
+  av_extend av 3;
+  av_set av 0 (sv_of_int 11);
+  av_set av 1 (sv_of_int 22);
+  av_set av 2 (sv_of_int 33);
+  av_set av 3 (sv_of_int 44);
+  assert (4 = av_length av);
+  assert (33 = int_of_sv (av_get av 2));
+  assert (22 = int_of_sv (av_get av 1));
+  assert (44 = int_of_sv (av_pop av));
+  assert (3 = av_length av);
+  assert (33 = int_of_sv (av_pop av));
+  assert (11 = int_of_sv (av_shift av));
+  assert (22 = int_of_sv (av_pop av));
+  assert ([] = list_of_av av);
+
+  ignore (eval "@a = ( 'foo', 'bar' )");
+  let av = get_av "a" in
+  assert ("foo" = string_of_sv (av_get av 0));
+  assert ("bar" = string_of_sv (av_get av 1));
+;;
+
+Gc.full_major ()