about summary refs log tree commit diff stats
path: root/awk/rawk/scratch/debug_output.awk
diff options
context:
space:
mode:
Diffstat (limited to 'awk/rawk/scratch/debug_output.awk')
-rw-r--r--awk/rawk/scratch/debug_output.awk58
1 files changed, 58 insertions, 0 deletions
diff --git a/awk/rawk/scratch/debug_output.awk b/awk/rawk/scratch/debug_output.awk
new file mode 100644
index 0000000..f737173
--- /dev/null
+++ b/awk/rawk/scratch/debug_output.awk
@@ -0,0 +1,58 @@
+# Generated by rawk v2.0.0
+# Source: test_basic.rawk
+
+# --- Standard Library ---
+function is_number(value) { return value == value + 0 }
+function is_string(value) { return !(value == value + 0) }
+
+function get_keys(array, result, i, count) { count = 0; for (i in array) { result[++count] = i }; return count }
+
+function expect_equal(actual, expected, message) { if (actual != expected) { print "❌ Expected " expected " but got " actual " - " message > "/dev/stderr"; exit 1 } }
+function expect_true(condition, message) { if (!condition) { print "❌ Expected true but got false - " message > "/dev/stderr"; exit 1 } }
+function expect_false(condition, message) { if (condition) { print "❌ Expected false but got true - " message > "/dev/stderr"; exit 1 } }
+
+# --- User Functions ---
+# --- Main Script ---
+BEGIN {
+    print "=== Basic Block-Based rawk Tests ==="
+}
+
+    
+    $multiply = (a, b) -> {
+        return a * b;
+    };
+    
+    $greet = (name) -> {
+        return "Hello, " name "!";
+    };
+    
+    $is_positive_num = (num) -> {
+        return num > 0;
+    };
+}
+
+{
+    # Test basic arithmetic
+    result1 = add(5, 3);
+    expect_equal(result1, 8, "add(5, 3) should return 8");
+    
+    result2 = multiply(4, 7);
+    expect_equal(result2, 28, "multiply(4, 7) should return 28");
+    
+    # Test string functions
+    greeting = greet("World");
+    expect_equal(greeting, "Hello, World!", "greet('World') should return 'Hello, World!'");
+    
+    # Test boolean functions
+    expect_true(is_positive_num(10), "is_positive_num(10) should return true");
+    expect_false(is_positive_num(-5), "is_positive_num(-5) should return false");
+    
+    print "All basic tests passed!";
+    exit 0;
+} 
+
+# Rawk compilation summary:
+#   - Rawk Version: 2.0.0
+#   - Functions defined: 0
+#   - Source lines: 41
+#   - Standard library functions included: 3