fix Core.Execute and test

src/Idris/Core/Execute.hs

@@ -394,7 +394,7 @@ execForeign env ctxt arity ty fn xs onfail
                                        execApp env ctxt ioUnit (drop arity xs)
                _ -> execFail . Msg $
                       "The argument to fileRemove should be a constant string, but it was " ++
-                      show handle ++
+                      show fileStr ++
                       ". Are all cases covered?"
     | Just (FFun "fileClose" [(_,handle)] _) <- foreignFromTT arity ty fn xs
            = case handle of

test/TestData.hs

@@ -141,6 +141,7 @@ testFamiliesData = [
     , ( 10, NODE_CG )
     , ( 11, NODE_CG )
     , ( 12, NODE_CG )
+    , ( 13, C_CG )
     ]),
   ("folding",         "Folding",
     [ (  1, ANY  )]),

test/ffi013/expected

@@ -1 +1 @@
-success
+success

test/ffi013/run

@@ -2,4 +2,6 @@
 echo "test" > remove.me
 ${IDRIS:-idris} $@ --quiet --port none ffi013.idr -o ffi013
 ./ffi013
+echo "test2" > remove.me
+${IDRIS:-idris} $@ --quiet --port none --nocolour ffi013.idr --exec main
 rm -f ffi013 remove.me *.ibc