1 files changed, 30 insertions, 0 deletions
diff --git a/awk/rawk/scratch/tests_old/stdlib/test_stdlib_simple.rawk b/awk/rawk/scratch/tests_old/stdlib/test_stdlib_simple.rawk
new file mode 100644
index 0000000..56010ff
--- /dev/null
+++ b/awk/rawk/scratch/tests_old/stdlib/test_stdlib_simple.rawk
@@ -0,0 +1,30 @@
+# Simple standard library test
+$double = (x) -> x * 2;
+$square = (x) -> x * x;
+$add = (a, b) -> a + b;
+
+# Test the standard library with direct function calls
+BEGIN {
+    print "=== Testing Standard Library (Simple) ==="
+    
+    # Test direct function calls (these work)
+    print "double(5) =", double(5)
+    print "square(4) =", square(4)
+    print "add(3, 7) =", add(3, 7)
+    
+    # Test keys and values functions (these work)
+    data["a"] = 1
+    data["b"] = 2
+    data["c"] = 3
+    key_count = keys(data)
+    value_count = values(data)
+    get_keys(data, key_array)
+    get_values(data, value_array)
+    print "keys(data) =", key_array[1], key_array[2], key_array[3]
+    print "values(data) =", value_array[1], value_array[2], value_array[3]
+    print "key count =", key_count, "value count =", value_count
+    
+    # Test nested function calls
+    print "double(square(3)) =", double(square(3))
+    print "square(double(3)) =", square(double(3))
+} 
\ No newline at end of file