Migrate test code here

libs/test-atoms.scm

@@ -0,0 +1,27 @@
+(import 
+  (scheme base) 
+  (scheme write)
+  (cyclone concurrency)
+  )
+
+(define lis '(1 2))
+(define a (make-atom lis))
+(write
+  (list
+    a
+    (ref a)
+    (compare-and-set! a 1 lis)
+    (ref a)
+    (compare-and-set! a lis 1)
+    (ref a)
+))
+(newline)
+(write
+  (list
+    (make-shared '(1 (2 (3))))
+    (make-shared 1)
+    (make-shared 1.0)
+    (make-shared "this is a string")
+    (make-shared #(a b c d))
+    (make-shared #u8(1 2 3 4))
+    ))