Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add list_ptr test to adt

  • Loading branch information...
commit 6077344a790a3a06c6e694e21f9383094e4bb8af 1 parent db2b678
@benswift benswift authored
Showing with 9 additions and 0 deletions.
  1. +9 −0 tests/core/adt.xtm
View
9 tests/core/adt.xtm
@@ -32,3 +32,12 @@
(test-xtfunc (test_point_2) 13.9)
(print-test-results)
+
+(bind-func test_list_ptr
+ (lambda ()
+ (let ((lst_ptr:List** (alloc 2)))
+ (pset! lst_ptr 0 (list 1 2 3))
+ (pset! lst_ptr 1 (list 4 5 6))
+ (nth (pref lst_ptr 1) 1))))
+
+(test-xtfunc (test_list_ptr) 5)
Please sign in to comment.
Something went wrong with that request. Please try again.