diff options
| author | manuel <manuel@mausz.at> | 2012-03-27 11:51:08 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-03-27 11:51:08 +0200 |
| commit | 4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b (patch) | |
| tree | 868c52e06f207b5ec8a3cc141f4b8b2bdfcc165c /tests/vm/pt-grow-stk-sc.ck | |
| parent | eae0bd57f0a26314a94785061888d193d186944a (diff) | |
| download | progos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.tar.gz progos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.tar.bz2 progos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.zip | |
reorganize file structure to match the upstream requirements
Diffstat (limited to 'tests/vm/pt-grow-stk-sc.ck')
| -rw-r--r-- | tests/vm/pt-grow-stk-sc.ck | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/vm/pt-grow-stk-sc.ck b/tests/vm/pt-grow-stk-sc.ck new file mode 100644 index 0000000..23d3b02 --- /dev/null +++ b/tests/vm/pt-grow-stk-sc.ck | |||
| @@ -0,0 +1,15 @@ | |||
| 1 | # -*- perl -*- | ||
| 2 | use strict; | ||
| 3 | use warnings; | ||
| 4 | use tests::tests; | ||
| 5 | check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']); | ||
| 6 | (pt-grow-stk-sc) begin | ||
| 7 | (pt-grow-stk-sc) create "sample.txt" | ||
| 8 | (pt-grow-stk-sc) open "sample.txt" | ||
| 9 | (pt-grow-stk-sc) write "sample.txt" | ||
| 10 | (pt-grow-stk-sc) 2nd open "sample.txt" | ||
| 11 | (pt-grow-stk-sc) read "sample.txt" | ||
| 12 | (pt-grow-stk-sc) compare written data against read data | ||
| 13 | (pt-grow-stk-sc) end | ||
| 14 | EOF | ||
| 15 | pass; | ||