Fix #8487: Debugger confuses variables
[ghc.git] / testsuite / tests / ghci.debugger / scripts / all.T
1 setTestOpts([extra_run_opts('-ignore-dot-ghci'),
2              when(config.have_ext_interp, extra_ways(['ghci-ext'])), # test with -fexternal-interpreter
3              normalise_slashes])
4
5
6 test('print001', normal, ghci_script, ['print001.script'])
7 test('print002', extra_files(['../Test.hs']), ghci_script, ['print002.script'])
8 test('print003', extra_files(['../Test.hs']), ghci_script, ['print003.script'])
9 test('print004', normal, ghci_script, ['print004.script'])
10 test('print005', extra_files(['../QSort.hs']), ghci_script, ['print005.script'])
11 test('print006', extra_files(['../Test.hs']), ghci_script, ['print006.script'])
12 test('print007', extra_files(['../Test.hs']), ghci_script, ['print007.script'])
13 test('print008', extra_files(['../Test.hs']), ghci_script, ['print008.script'])
14 test('print009', normal, ghci_script, ['print009.script'])
15 test('print010', extra_files(['../Test.hs']), ghci_script, ['print010.script'])
16 test('print011', extra_files(['../Test.hs']), ghci_script, ['print011.script'])
17 test('print012', extra_files(['../GADT.hs', '../Test.hs']), ghci_script, ['print012.script'])
18 test('print013', extra_files(['../GADT.hs']), ghci_script, ['print013.script'])
19 test('print014', extra_files(['../GADT.hs']), ghci_script, ['print014.script'])
20 test('print016', extra_files(['../Test.hs']), ghci_script, ['print016.script'])
21 test('print017', extra_files(['../Test.hs']), ghci_script, ['print017.script'])
22 test('print018', extra_files(['../Test.hs']), ghci_script, ['print018.script'])
23 test('print019', extra_files(['../Test.hs']), ghci_script, ['print019.script'])
24
25 # The ghci-ext way emits messages in a slightly different order due to
26 # printing from two processes, so let's just skip it.
27 test('print020', [extra_files(['../HappyTest.hs']),
28                   omit_ways(['ghci-ext'])], ghci_script, ['print020.script'])
29
30 test('print021', normal, ghci_script, ['print021.script'])
31 test('print022',
32      [when(arch('powerpc64'), expect_broken(14455))],
33      ghci_script, ['print022.script'])
34 test('print023', extra_files(['../Test.hs']), ghci_script, ['print023.script'])
35 test('print024', extra_files(['../Test.hs']), ghci_script, ['print024.script'])
36 test('print025', normal, ghci_script, ['print025.script'])
37 test('print026', normal, ghci_script, ['print026.script'])
38 test('print027', normal, ghci_script, ['print027.script'])
39 test('print028', normal, ghci_script, ['print028.script'])
40 test('print029', normal, ghci_script, ['print029.script'])
41 test('print030', extra_files(['print029.hs']), ghci_script, ['print030.script'])
42 test('print031', normal, ghci_script, ['print031.script'])
43 test('print032', extra_files(['print029.hs']), ghci_script, ['print032.script'])
44 test('print033', normal, ghci_script, ['print033.script'])
45 test('print034', extra_files(['../GADT.hs', '../Test.hs']), ghci_script, ['print034.script'])
46 test('print035', extra_files(['../Unboxed.hs']), ghci_script, ['print035.script'])
47 test('print036', expect_broken(9046), ghci_script, ['print036.script'])
48 test('print037', when(llvm_build() and integer_gmp()
49                      , expect_broken_for(16205, ['ghci-ext']))
50                , ghci_script
51                , ['print037.script'])
52
53 test('break001', extra_files(['../Test2.hs']), ghci_script, ['break001.script'])
54 test('break002', extra_files(['../Test2.hs']), ghci_script, ['break002.script'])
55 test('break003', extra_files(['../Test3.hs']), ghci_script, ['break003.script'])
56 test('break005', extra_files(['../QSort.hs']), ghci_script, ['break005.script'])
57 test('break006', extra_files(['../Test3.hs']), ghci_script, ['break006.script'])
58 test('break007', extra_files(['Break007.hs']), ghci_script, ['break007.script'])
59 test('break008', extra_files(['../Test3.hs']), ghci_script, ['break008.script'])
60 test('break009', [extra_files(['../Test6.hs']),
61                   combined_output], ghci_script, ['break009.script'])
62 test('break010', extra_files(['../Test6.hs']), ghci_script, ['break010.script'])
63 test('break011',
64      [extra_files(['../Test7.hs']),
65       combined_output],
66      ghci_script, ['break011.script'])
67 test('break012', normal, ghci_script, ['break012.script'])
68 test('break013', normal, ghci_script, ['break013.script'])
69 test('break014', normal, ghci_script, ['break014.script'])
70 test('break015', expect_broken(1532), ghci_script, ['break015.script'])
71 test('break016', combined_output, ghci_script, ['break016.script'])
72 test('break017', [extra_files(['../QSort.hs']),
73                   combined_output], ghci_script, ['break017.script'])
74 test('break018', extra_files(['../mdo.hs']), ghci_script, ['break018.script'])
75 test('break019', extra_files(['../Test2.hs']), ghci_script, ['break019.script'])
76 test('break020', extra_files(['Break020b.hs']), ghci_script, ['break020.script'])
77 test('break021', extra_files(['Break020b.hs', 'break020.hs']), ghci_script, ['break021.script'])
78 test('break024', combined_output, ghci_script, ['break024.script'])
79 test('break025', normal, ghci_script, ['break025.script'])
80 test('break026', normal, ghci_script, ['break026.script'])
81 test('break027', extra_files(['../QSort.hs']), ghci_script, ['break027.script'])
82 test('dynbrk001', extra_files(['../QSort.hs']), ghci_script, ['dynbrk001.script'])
83 test('dynbrk002', extra_files(['../QSort.hs']), ghci_script, ['dynbrk002.script'])
84 test('dynbrk003', normal, ghci_script, ['dynbrk003.script'])
85 test('dynbrk004', extra_files(['../mdo.hs']), ghci_script, ['dynbrk004.script'])
86 test('dynbrk005', [extra_files(['TupleN.hs']), expect_broken(1530)],
87      ghci_script, ['dynbrk005.script'])
88 test('dynbrk007', normal, ghci_script, ['dynbrk007.script'])
89 test('dynbrk008', normal, ghci_script, ['dynbrk008.script'])
90 test('dynbrk009', normal, ghci_script, ['dynbrk009.script'])
91
92 test('result001', normal, ghci_script, ['result001.script'])
93
94 test('listCommand001', [extra_files(['../Test3.hs']),
95                         combined_output], ghci_script, ['listCommand001.script'])
96 test('listCommand002', normal, ghci_script, ['listCommand002.script'])
97
98 test('hist001', [extra_files(['../Test3.hs']), extra_run_opts('+RTS -I0')],
99      ghci_script, ['hist001.script'])
100 test('hist002', [extra_files(['../Test3.hs']), extra_run_opts('+RTS -I0')],
101      ghci_script, ['hist002.script'])
102
103 test('T1620', extra_files(['T1620/', 'T1620/T1620.hs']),
104               ghci_script, ['T1620.script'])
105 test('T2740', normal, ghci_script, ['T2740.script'])
106
107 test('getargs', extra_files(['../getargs.hs']), ghci_script, ['getargs.script'])
108 test('T7386', normal, ghci_script, ['T7386.script'])
109 test('T8487', normal, ghci_script, ['T8487.script'])
110 test('T8557', normal, ghci_script, ['T8557.script'])
111 test('T12458', normal, ghci_script, ['T12458.script'])
112 test('T13825-debugger', when(arch('powerpc64'), expect_broken(14455)),
113       ghci_script, ['T13825-debugger.script'])
114 test('T16700', normal, ghci_script, ['T16700.script'])
115
116 test('break029', extra_files(['break029.hs']), ghci_script, ['break029.script'])
117 test('T2215', normal, ghci_script, ['T2215.script'])