From faba0abf74dcdab3a4957bd8f13afa3c4dd19950 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Sat, 17 Aug 2024 21:29:40 +0100 Subject: add delete! and objarr_delete --- tests/delete.bth | 16 ++++++++++++++++ tests/delete.out | 4 ++++ 2 files changed, 20 insertions(+) create mode 100644 tests/delete.bth create mode 100644 tests/delete.out (limited to 'tests') diff --git a/tests/delete.bth b/tests/delete.bth new file mode 100644 index 0000000..58063a3 --- /dev/null +++ b/tests/delete.bth @@ -0,0 +1,16 @@ +(let (a [10 20 30 40 50]) + (delete! a 0) + (say a)) + +(let (a [10 20 30 40 50]) + (delete! a 3) + (say a)) + +(let (a [10 20 30 40 50]) + (delete! a 4) + (say a)) + +(let (a [10 20 30 40 50]) + (delete! a 5) + (say a)) + diff --git a/tests/delete.out b/tests/delete.out new file mode 100644 index 0000000..d5ec9d6 --- /dev/null +++ b/tests/delete.out @@ -0,0 +1,4 @@ +[20 30 40 50] +[10 20 30 50] +[10 20 30 40] +array index out of bounds -- cgit v1.2.3