Commit a2deee06 authored by thomie's avatar thomie
Browse files

Testsuite: enable ghci.prog010 (#2542)

This test didn't have a `.T` file, so the testsuite driver never ran it.
Luckily the features it tested for didn't break in the past 8 years.
parent 8dfd4aeb
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('ghci.prog010',
[cmd_prefix('ghciWayFlags=' + config.ghci_way_flags),
extra_files(['../shell.hs', 'A.hs', 'B.hs'])],
ghci_script, ['ghci.prog010.script'])
......@@ -10,7 +10,7 @@
:type f
:type g
:shell $HC $HC_OPTS -fforce-recomp -c A.hs
:shell "$HC" $HC_OPTS $ghciWayFlags -fforce-recomp -c A.hs
:load A
-- we can now see only f
......@@ -24,9 +24,12 @@
:type f
:type g
:shell $HC $HC_OPTS -fforce-recomp -c B.hs
:shell "$HC" $HC_OPTS $ghciWayFlags -fforce-recomp -c B.hs
:load B
-- this will tell us we need to load A interpreted
:module *A
:add *A
:module *A
:type f
......
<interactive>:1:0: Not in scope: `g'
<interactive>:1:1: error: Variable not in scope: g
module 'A' is not interpreted; try ':add *A' first
module 'A' is not interpreted; try ':add *A' first
f :: t -> [t]
g :: a -> Maybe a
f :: t -> [t]
module 'A' is not interpreted; try ':add *A' first
f :: t -> [t]
g :: a -> Maybe a
module 'A' is not interpreted; try ':add *A' first
f :: t -> [t]
g :: a -> Maybe a
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment