aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/toxy/lbpict.wid4
-rw-r--r--test/toxy/setup.wid8
-rw-r--r--test/toxy/stress/bulkyhurd.pd163
-rw-r--r--test/toxy/stress/mstots.pd50
-rw-r--r--test/toxy/stress/nbulkyhurds.pd16
5 files changed, 236 insertions, 5 deletions
diff --git a/test/toxy/lbpict.wid b/test/toxy/lbpict.wid
index d7d5771..6378f8e 100644
--- a/test/toxy/lbpict.wid
+++ b/test/toxy/lbpict.wid
@@ -1,5 +1,7 @@
proc ::toxy::lbpict {path fname} {
- $path config -image [image create photo -file $fname]
+ if {[catch {$path config -image [image create photo -file $fname]} res]} {
+ puts stderr [concat failed ::toxy::lbpict: $res]
+ }
}
#> lbpict label
diff --git a/test/toxy/setup.wid b/test/toxy/setup.wid
index 1d544c9..ce498c4 100644
--- a/test/toxy/setup.wid
+++ b/test/toxy/setup.wid
@@ -1,4 +1,4 @@
-package provide toxywidgets 0.1.0.15
+package provide toxywidgets 0.1.0.16
# LATER keep standard widget setup in a .tcl file (transfered into a .wiq), and
# glue separate .wid files with standard widget definitions into another .wiq
@@ -287,6 +287,9 @@ proc ::toxy::popup {path target remote entries args} {
} else { error [concat in ::toxy::popup: $err] }
}
+# FIXME should be part of the float widget type, but we need it for plain scales
+set ::toxy::scale_isactive 1
+
#> bang button
#. -image ::toxy::img::empty -command .<.>
#. -bg pink -activebackground red -width 50 -height 50
@@ -298,9 +301,6 @@ proc ::toxy::popup {path target remote entries args} {
#. @float .- set .#1
#. @vset ::toxy::scale_doset .- .#1
-# FIXME
-set ::toxy::scale_isactive 1
-
#> symbol entry
#. -bg pink -font .(helvetica 24.) -width 16
#. @symbol .- delete 0 end .: .- insert 0 .#1
diff --git a/test/toxy/stress/bulkyhurd.pd b/test/toxy/stress/bulkyhurd.pd
new file mode 100644
index 0000000..0edda17
--- /dev/null
+++ b/test/toxy/stress/bulkyhurd.pd
@@ -0,0 +1,163 @@
+#N canvas 26 42 948 596 12;
+#X floatatom 17 24 5 0 0 0 - - -;
+#X floatatom 17 220 5 0 0 0 - - -;
+#N canvas 152 43 785 527 1001-hurd 0;
+#X obj 99 7 widget popup 1-p #items test -width 18;
+#X obj 259 7 widget popup 2-p #items test -width 18;
+#X obj 419 7 widget popup 3-p #items test -width 18;
+#X obj 579 7 widget popup 4-p #items test -width 18;
+#X obj 99 37 widget popup 5-p #items test;
+#X obj 179 37 widget popup 6-p #items test;
+#X obj 259 37 widget popup 7-p #items test;
+#X obj 339 37 widget popup 8-p #items test;
+#X obj 419 37 widget popup 9-p #items test;
+#X obj 499 37 widget popup 10-p #items test;
+#X obj 579 37 widget popup 11-p #items test;
+#X obj 659 37 widget popup 12-p #items test;
+#X obj 99 67 widget popup 13-p #items test;
+#X obj 179 67 widget popup 14-p #items test;
+#X obj 259 67 widget popup 15-p #items test;
+#X obj 339 67 widget popup 16-p #items test;
+#X obj 419 67 widget popup 17-p #items test;
+#X obj 499 67 widget popup 18-p #items test;
+#X obj 579 67 widget popup 19-p #items test;
+#X obj 659 67 widget popup 20-p #items test;
+#X obj 99 97 widget popup 21-p #items test;
+#X obj 179 97 widget popup 22-p #items test;
+#X obj 259 97 widget popup 23-p #items test;
+#X obj 339 97 widget popup 24-p #items test;
+#X obj 419 97 widget popup 25-p #items test;
+#X obj 499 97 widget popup 26-p #items test;
+#X obj 579 97 widget popup 27-p #items test;
+#X obj 659 97 widget popup 28-p #items test;
+#X obj 99 127 widget popup 29-p #items test;
+#X obj 179 127 widget popup 30-p #items test;
+#X obj 259 127 widget popup 31-p #items test;
+#X obj 339 127 widget popup 32-p #items test;
+#X obj 419 127 widget popup 33-p #items test;
+#X obj 499 127 widget popup 34-p #items test;
+#X obj 579 127 widget popup 35-p #items test;
+#X obj 659 127 widget popup 36-p #items test;
+#X obj 99 157 widget popup 37-p #items test;
+#X obj 179 157 widget popup 38-p #items test;
+#X obj 259 157 widget popup 39-p #items test;
+#X obj 339 157 widget popup 40-p #items test;
+#X obj 419 157 widget popup 41-p #items test;
+#X obj 499 157 widget popup 42-p #items test;
+#X obj 579 157 widget popup 43-p #items test;
+#X obj 659 157 widget popup 44-p #items test;
+#X obj 99 187 widget popup 45-p #items test;
+#X obj 179 187 widget popup 46-p #items test;
+#X obj 259 187 widget popup 47-p #items test;
+#X obj 339 187 widget popup 48-p #items test;
+#X obj 419 187 widget popup 49-p #items test;
+#X obj 499 187 widget popup 50-p #items test;
+#X obj 579 187 widget popup 51-p #items test;
+#X obj 659 187 widget popup 52-p #items test;
+#X obj 99 217 widget popup 53-p #items test;
+#X obj 179 217 widget popup 54-p #items test;
+#X obj 259 217 widget popup 55-p #items test;
+#X obj 339 217 widget popup 56-p #items test;
+#X obj 419 217 widget popup 57-p #items test;
+#X obj 499 217 widget popup 58-p #items test;
+#X obj 579 217 widget popup 59-p #items test;
+#X obj 659 217 widget popup 60-p #items test;
+#X obj 99 247 widget popup 61-p #items test;
+#X obj 179 247 widget popup 62-p #items test;
+#X obj 259 247 widget popup 63-p #items test;
+#X obj 339 247 widget popup 64-p #items test;
+#X obj 419 247 widget popup 65-p #items test;
+#X obj 499 247 widget popup 66-p #items test;
+#X obj 579 247 widget popup 67-p #items test;
+#X obj 659 247 widget popup 68-p #items test;
+#X obj 99 277 widget popup 69-p #items test;
+#X obj 179 277 widget popup 70-p #items test;
+#X obj 259 277 widget popup 71-p #items test;
+#X obj 339 277 widget popup 72-p #items test;
+#X obj 419 277 widget popup 73-p #items test;
+#X obj 499 277 widget popup 74-p #items test;
+#X obj 579 277 widget popup 75-p #items test;
+#X obj 659 277 widget popup 76-p #items test;
+#X obj 99 307 widget popup 77-p #items test;
+#X obj 179 307 widget popup 78-p #items test;
+#X obj 259 307 widget popup 79-p #items test;
+#X obj 339 307 widget popup 80-p #items test;
+#X obj 419 307 widget popup 81-p #items test;
+#X obj 499 307 widget popup 82-p #items test;
+#X obj 579 307 widget popup 83-p #items test;
+#X obj 659 307 widget popup 84-p #items test;
+#X obj 99 337 widget popup 85-p #items test;
+#X obj 179 337 widget popup 86-p #items test;
+#X obj 259 337 widget popup 87-p #items test;
+#X obj 339 337 widget popup 88-p #items test;
+#X obj 419 337 widget popup 89-p #items test;
+#X obj 499 337 widget popup 90-p #items test;
+#X obj 579 337 widget popup 91-p #items test;
+#X obj 659 337 widget popup 92-p #items test;
+#X obj 99 367 widget popup 93-p #items test;
+#X obj 179 367 widget popup 94-p #items test;
+#X obj 259 367 widget popup 95-p #items test;
+#X obj 339 367 widget popup 96-p #items test;
+#X obj 419 367 widget popup 97-p #items test;
+#X obj 499 367 widget popup 98-p #items test;
+#X obj 579 367 widget popup 99-p #items test;
+#X obj 659 367 widget popup 100-p #items test;
+#X obj 99 397 widget popup 101-p #items test;
+#X obj 179 397 widget popup 102-p #items test;
+#X obj 259 397 widget popup 103-p #items test;
+#X obj 339 397 widget popup 104-p #items test;
+#X obj 419 397 widget popup 105-p #items test;
+#X obj 499 397 widget popup 106-p #items test;
+#X obj 579 397 widget popup 107-p #items test;
+#X obj 659 397 widget popup 108-p #items test;
+#X obj 99 427 widget popup 109-p #items test;
+#X obj 179 427 widget popup 110-p #items test;
+#X obj 259 427 widget popup 111-p #items test;
+#X obj 339 427 widget popup 112-p #items test;
+#X obj 419 427 widget popup 113-p #items test;
+#X obj 499 427 widget popup 114-p #items test;
+#X obj 579 427 widget popup 115-p #items test;
+#X obj 659 427 widget popup 116-p #items test;
+#X obj 99 457 widget popup 117-p #items test;
+#X obj 179 457 widget popup 118-p #items test;
+#X obj 259 457 widget popup 119-p #items test;
+#X obj 339 457 widget popup 120-p #items test;
+#X obj 419 457 widget popup 121-p #items test;
+#X obj 499 457 widget popup 122-p #items test;
+#X obj 579 457 widget popup 123-p #items test;
+#X obj 659 457 widget popup 124-p #items test;
+#X obj 99 487 widget popup 125-p #items test;
+#X obj 179 487 widget popup 126-p #items test;
+#X obj 259 487 widget popup 127-p #items test;
+#X obj 339 487 widget popup 128-p #items test;
+#X obj 419 487 widget popup 129-p #items test;
+#X obj 499 487 widget popup 130-p #items test;
+#X obj 579 487 widget popup 131-p #items test;
+#X obj 659 487 widget popup 132-p #items test;
+#X coords 0 0 1 1 750 550 1;
+#X restore 159 19 pd \$0-hurd;
+#X obj 20 548 tow \$0-hurd popup p;
+#X obj 17 185 tow \$0-hurd popup p;
+#X obj 20 271 loadbang;
+#X floatatom 32 60 5 0 0 0 - - -;
+#X obj 20 351 Uzi;
+#X msg 20 314 132;
+#X msg 39 430 retarget \$1 popup \$2-p;
+#X obj 39 389 prepend list \$0-hurd;
+#X obj 32 100 prepend list \$0-hurd;
+#X msg 32 142 retarget \$1 popup \$2-p;
+#X obj 20 506 testmess c;
+#X msg 20 467 #items;
+#X connect 0 0 4 0;
+#X connect 4 0 1 0;
+#X connect 5 0 8 0;
+#X connect 6 0 11 0;
+#X connect 7 0 14 0;
+#X connect 7 2 10 0;
+#X connect 8 0 7 0;
+#X connect 9 0 3 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 12 0 4 0;
+#X connect 13 0 3 0;
+#X connect 14 0 13 0;
diff --git a/test/toxy/stress/mstots.pd b/test/toxy/stress/mstots.pd
new file mode 100644
index 0000000..7c823e0
--- /dev/null
+++ b/test/toxy/stress/mstots.pd
@@ -0,0 +1,50 @@
+#N canvas 337 46 624 565 12;
+#X obj 278 125 Uzi 10;
+#X msg 49 16 1000;
+#X msg 103 16 5000;
+#X msg 154 16 10000;
+#X msg 278 160 push;
+#X obj 49 287 tot .;
+#X obj 278 291 tot .;
+#X msg 374 160 tot catch .(console show.);
+#X msg 394 47 50000;
+#X text 137 46 don't even try this on windows:;
+#X msg 316 207 add #;
+#X msg 466 81 80000;
+#X obj 50 512 tot .;
+#X msg 49 246 tot ::mstots::readclock \$1;
+#X obj 49 95 t 0 0 b;
+#X msg 62 211 tot ::mstots::setclock;
+#X msg 50 369 tot namespace eval mstots .(proc setclock .(.) .(set
+::mstots::lastclock [clock clicks -milliseconds].).);
+#X obj 374 125 loadbang;
+#X obj 50 336 loadbang;
+#X floatatom 49 65 5 0 0 0 - - -;
+#X msg 70 423 tot namespace eval mstots .(proc readclock .(niter.)
+.(set delta [expr .([clock clicks -milliseconds] - $::mstots::lastclock.)]
+.: puts [concat $delta ms ([expr .($niter / $delta.)] Mb/s)].).);
+#X obj 316 246 testmess . 128 7;
+#X text 458 245 1024 characters;
+#X text 128 80 this takes ~ one second on a 2.66 linux:;
+#X connect 0 0 4 0;
+#X connect 1 0 19 0;
+#X connect 2 0 19 0;
+#X connect 3 0 19 0;
+#X connect 4 0 6 0;
+#X connect 7 0 6 0;
+#X connect 8 0 19 0;
+#X connect 10 0 21 0;
+#X connect 11 0 19 0;
+#X connect 13 0 5 0;
+#X connect 14 0 13 0;
+#X connect 14 1 0 0;
+#X connect 14 2 15 0;
+#X connect 15 0 5 0;
+#X connect 16 0 12 0;
+#X connect 17 0 7 0;
+#X connect 17 0 10 0;
+#X connect 18 0 16 0;
+#X connect 18 0 20 0;
+#X connect 19 0 14 0;
+#X connect 20 0 12 0;
+#X connect 21 0 6 0;
diff --git a/test/toxy/stress/nbulkyhurds.pd b/test/toxy/stress/nbulkyhurds.pd
new file mode 100644
index 0000000..528df2d
--- /dev/null
+++ b/test/toxy/stress/nbulkyhurds.pd
@@ -0,0 +1,16 @@
+#N canvas 36 57 313 293 12;
+#X obj 23 117 Uzi;
+#X msg 23 29 10;
+#X msg 23 210 \; pd open bulkyhurd.pd \$1;
+#X msg 129 117 pwd pwd;
+#X obj 66 117 r pwd;
+#X obj 23 71 t 0 b;
+#X obj 23 162 symbol;
+#X obj 129 162 tow .;
+#X connect 0 0 6 0;
+#X connect 1 0 5 0;
+#X connect 3 0 7 0;
+#X connect 4 0 6 1;
+#X connect 5 0 0 0;
+#X connect 5 1 3 0;
+#X connect 6 0 2 0;