diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-03-03 06:52:26 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-03-03 06:52:26 (GMT) |
| commit | 00375bdbea84452ae675b2f084e03ceb378ab0d7 (patch) | |
| tree | 5a6812b3101650ee2f177643bd8174d820ecd41a /tests/canvPs.test | |
| parent | fab5a5002310262db827d5f035d7287b859a4336 (diff) | |
| download | tk-00375bdbea84452ae675b2f084e03ceb378ab0d7.zip tk-00375bdbea84452ae675b2f084e03ceb378ab0d7.tar.gz tk-00375bdbea84452ae675b2f084e03ceb378ab0d7.tar.bz2 | |
Augment tests canvPs-1.1 and canvPs-2.1 so that they also check that [.c postscript] return the empty string as documented. These tests currently fail.
Diffstat (limited to 'tests/canvPs.test')
| -rw-r--r-- | tests/canvPs.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/canvPs.test b/tests/canvPs.test index c7ba958..a554bc8 100644 --- a/tests/canvPs.test +++ b/tests/canvPs.test @@ -23,8 +23,8 @@ test canvPs-1.1 {test writing to a file} -constraints { } -setup { set foo [makeFile {} foo.ps] } -body { - .c postscript -file $foo - file exists $foo + set res [.c postscript -file $foo] + lappend res [file exists $foo] } -cleanup { removeFile foo.ps } -result 1 @@ -55,9 +55,9 @@ test canvPs-2.1 {test writing to a channel} -constraints { } -body { set chan [open $foo w] fconfigure $chan -translation lf - .c postscript -channel $chan + set res [.c postscript -channel $chan] close $chan - file exists $foo + lappend res [file exists $foo] } -cleanup { removeFile foo.ps } -result 1 |