.

test/tests.c

@@ -10,21 +10,41 @@
 int main()
 {
     // values
-    printf("### Values\n");
-    assert(value_type(create_value_integer(42)) == TT_INTEGER);
-    assert(value_integer(create_value_integer(-42)) == -42);
-    assert(fabsf(value_real(create_value_real(42.4f)) - 42.4f) < 0.00001f);
-    assert(value_idx(create_value_idx(TT_FUNCTION, 42)) == 42);
+    {
+        printf("### Values\n");
+        assert(value_type(create_value_integer(42)) == TT_INTEGER);
+        assert(value_integer(create_value_integer(-42)) == -42);
+        assert(fabsf(value_real(create_value_real(42.4f)) - 42.4f) < 0.00001f);
+        assert(value_idx(create_value_idx(TT_FUNCTION, 42)) == 42);
+    }
 
-    // values
-    printf("### Stack\n");
-    Stack s;
-    stack_init(&s);
-    stack_push(&s, create_value_integer(10));
-    stack_push(&s, create_value_integer(20));
-    stack_push(&s, create_value_integer(30));
+    // stack
+    {
+        printf("### Stack\n");
 
-    assert(stack_len(&s) == 3);
+        Stack s;
+        stack_init(&s);
+
+        stack_push(&s, create_value_integer(10));
+        stack_push(&s, create_value_integer(20));
+        stack_push(&s, create_value_integer(30));
+
+        VALUE v;
+        assert(stack_len(&s) == 3);
+        assert(stack_at(&s, 0, &v) == T_OK); assert(value_integer(v) == 10);
+        assert(stack_at(&s, 1, &v) == T_OK); assert(value_integer(v) == 20);
+        assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 30);
+        assert(stack_at(&s, -2, &v) == T_OK); assert(value_integer(v) == 20);
+
+        assert(stack_pop(&s, NULL) == T_OK);
+        assert(stack_pop(&s, NULL) == T_OK);
+        assert(stack_at(&s, -1, &v) == T_OK); assert(value_integer(v) == 10);
+        assert(stack_pop(&s, NULL) == T_OK);
+        assert(stack_len(&s) == 0);
+
+        assert(stack_pop(&s, NULL) == T_ERR_STACK_UNDERFLOW);
+
+        stack_finalize(&s);
+    }
 
-    stack_finalize(&s);
 }