{-# OPTIONS -fallow-overlapping-instances #-}
  arch - tag : Exceptions tests main file 
 Copyright ( C ) 2005   <  > 

 This program is free software ; you can redistribute it and/or modify 
 it under the terms of the GNU General Public License as published by 
 the Free Software Foundation ; either version 2 of the License , or 
 ( at your option ) any later version . 

 This program is distributed in the hope that it will be useful , 
 but WITHOUT ANY WARRANTY ; without even the implied warranty of 
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE .   See the 
 GNU General Public License for more details . 

 You should have received a copy of the GNU General Public License 
 along with this program ; if not , write to the Free Software 
 Foundation , Inc. , 59 Temple Place , Suite 330 , Boston , MA   02111 - 1307   USA 

Copyright (C) 2005 John Goerzen <>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-}

module Exceptionstest(tests) where
import Test.HUnit
import Python.Objects
import Python.Exceptions
import Python.Exceptions.ExcTypes
import Python.Interpreter
import Foreign.C.Types
import qualified Control.Exception

f msg inp code exp = TestLabel msg $ TestCase $ do pyo <- toPyObject inp
                                                   r <- code pyo
                                                   exp @=? r

test_base =
    let handler e = return ()
        in
        [
         TestCase $ catchPy (
                       do r <- pyRun_StringHs " 2 + None" Py_eval_input noKwParms
                          r @=? "no exception raised"
                            ) handler
        ,TestCase $ catchSpecificPy typeError (
                       do r <- pyRun_StringHs "2 + None" Py_eval_input noKwParms
                          r @=? "no exception raised"
                                               ) handler
        ,TestCase $ catchSpecificPy valueError (
                       do Control.Exception.catch 
                                (do r <- pyRun_StringHs "2 + None" Py_eval_input noKwParms
                                    r @=? "no exception raised"
                                )
                                 (\e -> return () )
                                               )
                                               (\e -> fail "Incorrectly caught exception")
        ]
                
tests = TestList [TestLabel "base" (TestList test_base)
                 ]

# OPTIONS -fallow-overlapping-instances #
  arch - tag : Exceptions tests main file 
 Copyright ( C ) 2005   <  > 

 This program is free software ; you can redistribute it and/or modify 
 it under the terms of the GNU General Public License as published by 
 the Free Software Foundation ; either version 2 of the License , or 
 ( at your option ) any later version . 

 This program is distributed in the hope that it will be useful , 
 but WITHOUT ANY WARRANTY ; without even the implied warranty of 
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE .   See the 
 GNU General Public License for more details . 

 You should have received a copy of the GNU General Public License 
 along with this program ; if not , write to the Free Software 
 Foundation , Inc. , 59 Temple Place , Suite 330 , Boston , MA   02111 - 1307   USA 

Copyright (C) 2005 John Goerzen <>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-}

module Exceptionstest(tests) where
import Test.HUnit
import Python.Objects
import Python.Exceptions
import Python.Exceptions.ExcTypes
import Python.Interpreter
import Foreign.C.Types
import qualified Control.Exception

f msg inp code exp = TestLabel msg $ TestCase $ do pyo <- toPyObject inp
                                                   r <- code pyo
                                                   exp @=? r

test_base =
    let handler e = return ()
        in
        [
         TestCase $ catchPy (
                       do r <- pyRun_StringHs " 2 + None" Py_eval_input noKwParms
                          r @=? "no exception raised"
                            ) handler
        ,TestCase $ catchSpecificPy typeError (
                       do r <- pyRun_StringHs "2 + None" Py_eval_input noKwParms
                          r @=? "no exception raised"
                                               ) handler
        ,TestCase $ catchSpecificPy valueError (
                       do Control.Exception.catch 
                                (do r <- pyRun_StringHs "2 + None" Py_eval_input noKwParms
                                    r @=? "no exception raised"
                                )
                                 (\e -> return () )
                                               )
                                               (\e -> fail "Incorrectly caught exception")
        ]
                
tests = TestList [TestLabel "base" (TestList test_base)
                 ]
