tcltest をテンプレートにして作成

Start:
書き方というかテスト作成の考え方はJUnitとかCppUnitと大体... package require tcltest eval tcltest::configure $argv package require hoge namespace eval ::hoge::test { test TestName TestDetail { expr 1+1 } 2 cleanupTests } namespace delete ::hoge::test この例ではhogeというパッケージを（使ってないけど）テスト... test TestName TestDetail ...とあるのがテストコマンドで、A... このテストコマンドの書き方は省略した書き方で、正規の書き... テストファイル中で全てのテストの最後にtcltest::cleanupTes... で、これをhoge.testとか拡張子を.testにして適当なディレク... package require Tcl 8.4 package require tcltest tcltest::configure -debug 0 tcltest::configure -singleproc no tcltest::configure -testdir [file dir [info script]] eval tcltest::configure $argv tcltest::runAllTests これはrunAllTestsコマンドで、all.tclと同じディレクトリに... で、tclsh all.tclのように実行すると、テストを実行して、そ... テストコマンドの多くは簡略化した書き方で書くと思います。... package require tcltest namespace import ::tcltest::* test Test1-0 {テストのテスト} { expr 3*2 } 6 基本的には、こうです。では小数値が含まれてたりするときは... まあ、こうかな・・？ test Test2-0 {浮動小数値のテスト1} { format %1.2f [expr 2.0 * asin(1)] } 3.14 正規表現でマッチングさせることもできます（汗） test Test2-1 {浮動少数値のテスト２} -body { expr 2.0 * asin(1) } -result {^3\.14\d*$} -match regexp テストコマンドは、最後のリターンだけ比較するので、次のよ... test Test3-0 {変数の使用のテスト0} { set a 123 expr $a + 123 } 246 まあ、このように・・・。 test Test3-1 {変数の使用のテスト1} { set a 123 expr $a + 123 } 246 unset a ただしく書くならsetup、cleanupを使ってこのように書くのが... test Test3-2 {変数の使用のテスト2} -body { expr $a + 123 } -setup { set a 123 } -cleanup { unset a } -result 246 複数のテストコマンドで同じ変数を使うときは、いちいちsetup... variable SETUP {set a 123} variable CLEANUP {unset a} のようなものを定義しておいて、 test Test3-3 {変数の使用のテスト3} -body { expr $a + 123 } - result 246 -setup $SETUP -cleanup $CLEANUP と、まあこのように。 基本的に最後にリターンされた値を比較するわけですが、複数... test Test4-0 {複数の値をアサートするテスト0} { set a 123 set b 456 list $a $b } {123 456} こんな風にも書けます。 test Test4-1 {複数の値をアサートするテスト1} { list \ [expr 120 + 3] \ [expr 450 + 6] } {123 456} ***参考リンク http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/TclCmd... ---- [[CategoryTclTk]]

End:
書き方というかテスト作成の考え方はJUnitとかCppUnitと大体... package require tcltest eval tcltest::configure $argv package require hoge namespace eval ::hoge::test { test TestName TestDetail { expr 1+1 } 2 cleanupTests } namespace delete ::hoge::test この例ではhogeというパッケージを（使ってないけど）テスト... test TestName TestDetail ...とあるのがテストコマンドで、A... このテストコマンドの書き方は省略した書き方で、正規の書き... テストファイル中で全てのテストの最後にtcltest::cleanupTes... で、これをhoge.testとか拡張子を.testにして適当なディレク... package require Tcl 8.4 package require tcltest tcltest::configure -debug 0 tcltest::configure -singleproc no tcltest::configure -testdir [file dir [info script]] eval tcltest::configure $argv tcltest::runAllTests これはrunAllTestsコマンドで、all.tclと同じディレクトリに... で、tclsh all.tclのように実行すると、テストを実行して、そ... テストコマンドの多くは簡略化した書き方で書くと思います。... package require tcltest namespace import ::tcltest::* test Test1-0 {テストのテスト} { expr 3*2 } 6 基本的には、こうです。では小数値が含まれてたりするときは... まあ、こうかな・・？ test Test2-0 {浮動小数値のテスト1} { format %1.2f [expr 2.0 * asin(1)] } 3.14 正規表現でマッチングさせることもできます（汗） test Test2-1 {浮動少数値のテスト２} -body { expr 2.0 * asin(1) } -result {^3\.14\d*$} -match regexp テストコマンドは、最後のリターンだけ比較するので、次のよ... test Test3-0 {変数の使用のテスト0} { set a 123 expr $a + 123 } 246 まあ、このように・・・。 test Test3-1 {変数の使用のテスト1} { set a 123 expr $a + 123 } 246 unset a ただしく書くならsetup、cleanupを使ってこのように書くのが... test Test3-2 {変数の使用のテスト2} -body { expr $a + 123 } -setup { set a 123 } -cleanup { unset a } -result 246 複数のテストコマンドで同じ変数を使うときは、いちいちsetup... variable SETUP {set a 123} variable CLEANUP {unset a} のようなものを定義しておいて、 test Test3-3 {変数の使用のテスト3} -body { expr $a + 123 } - result 246 -setup $SETUP -cleanup $CLEANUP と、まあこのように。 基本的に最後にリターンされた値を比較するわけですが、複数... test Test4-0 {複数の値をアサートするテスト0} { set a 123 set b 456 list $a $b } {123 456} こんな風にも書けます。 test Test4-1 {複数の値をアサートするテスト1} { list \ [expr 120 + 3] \ [expr 450 + 6] } {123 456} ***参考リンク http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/TclCmd... ---- [[CategoryTclTk]]

Page: