testsuite/tests/lib/System/all.T


1
2
3
4
5
6
7
8


test('exitWith001', exit_code(42), compile_and_run, [''])
test('getArgs001',  normal, compile_and_run, [''])
test('getEnv001',   normal, compile_and_run, [''])

test('system001',   if_platform("i386-unknown-mingw32", expect_fail), \
	compile_and_run, [''])