Use "[info sharedlibextension]" instead of trying ".so" then ".dll". All

the other tcl scripts in the test-suite have already been changed in this
way, but this one was missed it seems.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9337 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Olly Betts 2006-09-23 22:43:48 +00:00
commit 7c2638bd89

View file

@ -1,9 +1,8 @@
catch { load ./profiletest.so profiletest}
catch { load ./profiletest.dll profiletest} ;# Windows
catch { load ./profiletest[info sharedlibextension] profiletest}
set a [new_A]
set b [new_B]
for {set i 0} {$i < 1000000} {incr i 1} {
set a [B_fn $b $a]
}
}