Skip to content

Commit 57062bc

Browse files
committed
Add RTRIM test
1 parent 6e45f1e commit 57062bc

2 files changed

Lines changed: 21 additions & 0 deletions

File tree

tests/runtime/cases/rtrim_test.bas

Lines changed: 21 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,21 @@
1+
#include "lib/tst_framework.bas"
2+
3+
INIT("Test RTRIM$()")
4+
5+
#include <string.bas>
6+
#include <alloc.bas>
7+
8+
print memavail; chr$(13); maxavail
9+
10+
print "'"; rtrim("", "a"); "'"
11+
print "'"; rtrim("hello world", ""); "'"
12+
print "'"; rtrim("hello world", "ld"); "'"
13+
print "'"; rtrim("hello worldld", "ld"); "'"
14+
print "'"; rtrim("hehehe", "he"); "'"
15+
print "'"; rtrim("hhh", "h"); "'"
16+
print "'"; rtrim("ahehehe", "he"); "'"
17+
18+
print memavail; chr$(13); maxavail
19+
20+
FINISH
21+
6.75 KB
Binary file not shown.

0 commit comments

Comments
 (0)