890cea0b434f1f95d82b12b45aaae1e1c4e36e22
[pintos-anon] / src / tests / userprog / close-normal.ck
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected ([<<'EOF']);
6 (close-normal) begin
7 (close-normal) open "sample.txt"
8 (close-normal) close "sample.txt"
9 (close-normal) end
10 close-normal: exit(0)
11 EOF