b8034828d0
1. Lots of #lang-ization, other racketizations, code improvements, etc. 2. Some files that were not working now do. 3. "collects/tests/aligned-pasteboard" had some files that were near duplicates of "collects/mrlib/private/aligned-pasteboard/tests". I've removed the former since in a few places it looked like an older version (eg, there were bogus references to a non-existent "utils.rkt"). The former has more files that are in runnable condition now. 4. There are plenty of tests that look like they're failing, but it wasn't shown since they just return #f, and when they were running with a "-f" these results weren't displayed. 5. I have no idea about the code, this is all just reshuffling and minor editing.
114 lines
4.2 KiB
Racket
114 lines
4.2 KiB
Racket
#lang racket/gui
|
|
|
|
(require "test-macro.rkt" "../pasteboard-lib.rkt"
|
|
"../aligned-pasteboard.rkt" "../aligned-editor-container.rkt")
|
|
|
|
;; (printf "running tests for pasteboard-lib.rkt\n")
|
|
|
|
;; pasteboard-root:
|
|
;; ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>))
|
|
;; gets the top most aligned pasteboard in the tree of pasteboards and
|
|
;; containers
|
|
|
|
(let* ([pb1 (new vertical-pasteboard%)]
|
|
[pb2 (new horizontal-pasteboard%)]
|
|
[pb3 (new vertical-pasteboard%)]
|
|
[es2 (new aligned-editor-snip% [editor pb2])]
|
|
[es3 (new aligned-editor-snip% [editor pb3])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb1])])
|
|
(send pb1 insert es2)
|
|
(send pb2 insert es3)
|
|
;;
|
|
(test equal? (pasteboard-root pb3) pb1)
|
|
(test equal? (pasteboard-root pb2) pb1)
|
|
(test equal? (pasteboard-root pb1) pb1))
|
|
|
|
(let* ([pb1 (new vertical-pasteboard%)]
|
|
[pb2 (new horizontal-pasteboard%)]
|
|
[pb3 (new vertical-pasteboard%)]
|
|
[es1 (new aligned-editor-snip% [editor pb1])]
|
|
[es3 (new aligned-editor-snip% [editor pb3])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb2])])
|
|
(send pb2 insert es1)
|
|
(send pb2 insert es3)
|
|
;;
|
|
(test equal? (pasteboard-root pb3) pb2)
|
|
(test equal? (pasteboard-root pb2) pb2)
|
|
(test equal? (pasteboard-root pb1) pb2))
|
|
|
|
;;pasteboard-parent: ((is-a?/c pasteboard%) . -> . (is-a?/c aligned-editor-container<%>))
|
|
;;gets the canvas or snip that the pasteboard is displayed in
|
|
(let* ([pb1 (new vertical-pasteboard%)]
|
|
[pb2 (new horizontal-pasteboard%)]
|
|
[pb3 (new vertical-pasteboard%)]
|
|
[es2 (new aligned-editor-snip% [editor pb2])]
|
|
[es3 (new aligned-editor-snip% [editor pb3])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb1])])
|
|
(send pb1 insert es2)
|
|
(send pb2 insert es3)
|
|
;;
|
|
(test equal? (pasteboard-parent pb1) canvas)
|
|
(test equal? (pasteboard-parent pb2) es2)
|
|
(test equal? (pasteboard-parent pb3) es3))
|
|
|
|
(let* ([pb1 (new vertical-pasteboard%)]
|
|
[pb2 (new horizontal-pasteboard%)]
|
|
[pb3 (new vertical-pasteboard%)]
|
|
[es2 (new aligned-editor-snip% [editor pb2])]
|
|
[es3 (new aligned-editor-snip% [editor pb3])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb1])])
|
|
(send pb1 insert es2)
|
|
(send pb1 insert es3)
|
|
;;
|
|
(test equal? (pasteboard-parent pb1) canvas)
|
|
(test equal? (pasteboard-parent pb2) es2)
|
|
(test equal? (pasteboard-parent pb3) es3))
|
|
|
|
#|
|
|
;; num-sizeable: ((is-a?/c aligned-pasteboard<%>) . -> . number?)
|
|
;; the number of snips in the pasteboard that can be resized
|
|
(let* ([pb1 (new vertical-pasteboard% ())]
|
|
[es1 (new editor-snip% [editor (new text%)])]
|
|
[es2 (new editor-snip% [editor (new text%)])]
|
|
[es3 (new editor-snip% [editor (new text%)])]
|
|
[es4 (new editor-snip% [editor (new text%)])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb1])])
|
|
(send frame show #t)
|
|
(send pb1 insert es1)
|
|
(send pb1 insert es2)
|
|
(send pb1 insert es3)
|
|
(send pb1 insert es4)
|
|
;;
|
|
(test = (num-sizeable pb1) 0)
|
|
(send pb1 delete es1)
|
|
(test = (num-sizeable pb1) 0)
|
|
(send frame show #f))
|
|
|
|
(let* ([pb1 (new vertical-pasteboard%)]
|
|
[es1 (new aligned-editor-snip% [editor (new vertical-pasteboard%)])]
|
|
[es2 (new aligned-editor-snip% [editor (new vertical-pasteboard%)])]
|
|
[es3 (new aligned-editor-snip% [editor (new vertical-pasteboard%)])]
|
|
[es4 (new aligned-editor-snip% [editor (new vertical-pasteboard%)])]
|
|
[frame (new frame% [label "l"] [width 10] [height 10])]
|
|
[canvas (new aligned-editor-canvas% [parent frame] [editor pb1])])
|
|
(send frame show #t)
|
|
(send pb1 insert es1)
|
|
(send pb1 insert es2)
|
|
(send pb1 insert es3)
|
|
(send pb1 insert es4)
|
|
;;
|
|
(test = (num-sizeable pb1) 4)
|
|
(send pb1 delete es1)
|
|
(test = (num-sizeable pb1) 3)
|
|
(send pb1 erase)
|
|
(test = (num-sizeable pb1) 0)
|
|
(send frame show #f))
|
|
|
|
(printf "tests done\n")
|
|
|#
|