diff options
Diffstat (limited to 'tests/userprog/args-many.ck')
| -rw-r--r-- | tests/userprog/args-many.ck | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/userprog/args-many.ck b/tests/userprog/args-many.ck new file mode 100644 index 0000000..214574a --- /dev/null +++ b/tests/userprog/args-many.ck | |||
| @@ -0,0 +1,35 @@ | |||
| 1 | # -*- perl -*- | ||
| 2 | use strict; | ||
| 3 | use warnings; | ||
| 4 | use tests::tests; | ||
| 5 | check_expected ([<<'EOF']); | ||
| 6 | (args) begin | ||
| 7 | (args) argc = 23 | ||
| 8 | (args) argv[0] = 'args-many' | ||
| 9 | (args) argv[1] = 'a' | ||
| 10 | (args) argv[2] = 'b' | ||
| 11 | (args) argv[3] = 'c' | ||
| 12 | (args) argv[4] = 'd' | ||
| 13 | (args) argv[5] = 'e' | ||
| 14 | (args) argv[6] = 'f' | ||
| 15 | (args) argv[7] = 'g' | ||
| 16 | (args) argv[8] = 'h' | ||
| 17 | (args) argv[9] = 'i' | ||
| 18 | (args) argv[10] = 'j' | ||
| 19 | (args) argv[11] = 'k' | ||
| 20 | (args) argv[12] = 'l' | ||
| 21 | (args) argv[13] = 'm' | ||
| 22 | (args) argv[14] = 'n' | ||
| 23 | (args) argv[15] = 'o' | ||
| 24 | (args) argv[16] = 'p' | ||
| 25 | (args) argv[17] = 'q' | ||
| 26 | (args) argv[18] = 'r' | ||
| 27 | (args) argv[19] = 's' | ||
| 28 | (args) argv[20] = 't' | ||
| 29 | (args) argv[21] = 'u' | ||
| 30 | (args) argv[22] = 'v' | ||
| 31 | (args) argv[23] = null | ||
| 32 | (args) end | ||
| 33 | args-many: exit(0) | ||
| 34 | EOF | ||
| 35 | pass; | ||
