SecBSD's official ports repository

x11/itk/patches/patch-tests_interp_test

@@ -0,0 +1,23 @@
+--- tests/interp.test.orig	Wed Sep 22 11:37:08 2004
++++ tests/interp.test	Wed Dec 22 15:24:32 2010
+@@ -31,13 +31,13 @@ test interp-1.1 {create a slave interp with [incr Tk]}
+     list [slave eval "namespace children :: ::itk"] [interp delete slave]
+ } {::itk {}}
+ 
+-test interp-1.2 {can't load [incr Tk] into a safe interp} {
+-    interp create -safe slave
+-    load "" Itcl slave
+-    set result [list [catch {load "" Itk slave} msg] $msg]
+-    interp delete slave
+-    set result
+-} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
++#test interp-1.2 {can't load [incr Tk] into a safe interp} {
++#    interp create -safe slave
++#    load "" Itcl slave
++#    set result [list [catch {load "" Itk slave} msg] $msg]
++#    interp delete slave
++#    set result
++#} {1 {can't use package in a safe interpreter: no Itk_SafeInit procedure}}
+ 
+ test interp-1.3 {errors are okay when slave interp is deleted} {
+     interp create slave