Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
reorg & ensure the target version of qcode is loaded by package require
- Loading branch information
david
committed
Aug 30, 2012
1 parent
982b713
commit ed1ff39
Showing
8 changed files
with
28 additions
and
8 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,19 @@ | ||
package require tcltest | ||
eval ::tcltest::configure $argv | ||
package require qcode | ||
namespace import qc::* | ||
|
||
namespace eval ::qcode::test { | ||
|
||
namespace import ::tcltest::* | ||
|
||
# variable test_dict { [dict create a 1 [dict create b1 1 b2 2] c 3] } | ||
# | ||
# test dict_exists-1.0 {dict_exists success} -setup $test_dict -body { | ||
# dict_exists $test | ||
# } -cleanup { | ||
# file delete $file | ||
# } -result 1 | ||
|
||
} | ||
namespace delete ::qcode::test |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,4 @@ | ||
package require tcltest | ||
package require qcode 1.7 | ||
::tcltest::configure -testdir [file dirname [file normalize [info script]]] | ||
eval ::tcltest::configure $argv | ||
::tcltest::runAllTests |