| source [file join [file dirname [file normalize [info script]]] tclbuildtest.tcl] | |
| package require tclbuildtest | |
| ::tclbuildtest::sandbox { | |
| foreach b {{} static} { | |
| foreach p {single double} { | |
| foreach s {real complex} { | |
| test [list c $p $s $b] { | |
| if {[constraint? complex]} {set input cg20.cua} else {set input g20.rua} | |
| run [build [require superlu] [x]linsol.c] < $input | |
| } | |
| } | |
| } | |
| } | |
| } |