test for printing non-existent variables

copton · Aug 30, 2012 · 77691ca · 77691ca
1 parent e090bf0
commit 77691ca
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/ruab/src/Ruab/Backend/GDB.hs b/ruab/src/Ruab/Backend/GDB.hs
@@ -69,7 +69,7 @@ evaluate_expression ctx expr = do
     G.RCError -> maybe
       ($abort ("unexpected response: " ++ show resp))
       (return . Left)
-      (convert G.response_error resp)
+      ((G.response_error . G.respResults) resp)
 
     _ -> $abort $ "unexpected response: " ++ show resp
 

diff --git a/ruab/src/Ruab/Core/Test.hs b/ruab/src/Ruab/Core/Test.hs
@@ -176,7 +176,7 @@ test_integration = enumTestGroup "integration" $ map runTest [
       , ExpectResponse (Right ResShutdown) Nothing
       , ExpectStatus [isShutdown] Nothing
       ]
-    -- print local variable of non-critical function
+    -- print local variable of non-critical function {{{3
     , [ ExpectStart $ CmdAddBreakpoint (PRow 461) []
       , ExpectStatus [isWaiting] Nothing
       , ExpectResponse (Right (ResAddBreakpoint (UserBreakpoint 1 (PRow 461) [0, 1, 2]))) (Just CmdRun)
@@ -191,6 +191,17 @@ test_integration = enumTestGroup "integration" $ map runTest [
       , ExpectResponse (Right ResShutdown) Nothing
       , ExpectStatus [isShutdown] Nothing
       ]
+    -- print non-existent local variable of non-critical function {{{3
+    , [ ExpectStart $ CmdAddBreakpoint (PRow 461) []
+      , ExpectStatus [isWaiting] Nothing
+      , ExpectResponse (Right (ResAddBreakpoint (UserBreakpoint 1 (PRow 461) [0, 1, 2]))) (Just CmdRun)
+      , ExpectResponse (Right ResRun) Nothing
+      , ExpectStatus [isRunning] Nothing
+      , ExpectStatus [isStopped, threadStopped 2 1 461] (Just (CmdEvaluate "j"))
+      , ExpectResponse (Left "No symbol \"j\" in current context.") (Just CmdShutdown)
+      , ExpectResponse (Right ResShutdown) Nothing
+      , ExpectStatus [isShutdown] Nothing
+      ]
 
     -- end {{{3
   ]
@@ -237,7 +248,7 @@ test_integration = enumTestGroup "integration" $ map runTest [
       fail ""
 
     step actor fCommand input (count, (expected:rest)) = do
-      putStrLn $ printf "%.2d: %s" count (show input)
+--       putStrLn $ printf "%.2d: %s" count (show input)
       cmd <- handle input expected
       when (isJust cmd) (fCommand (fromJust cmd))
       when (null rest) (quit actor)