From 06e068fe017fe957c5e0897570452941fb22b1f1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Mar 2007 03:49:53 +0000 Subject: [PATCH] more/repaired tests more mred editors svn: r5789 original commit: 2848977def0ae76c258d1be6efce542ce3f3c82a --- collects/tests/mred/editor.ss | 25 +++++++++++++++++++------ 1 file changed, 19 insertions(+), 6 deletions(-) diff --git a/collects/tests/mred/editor.ss b/collects/tests/mred/editor.ss index 734582e0..f2fd36b8 100644 --- a/collects/tests/mred/editor.ss +++ b/collects/tests/mred/editor.ss @@ -31,9 +31,9 @@ (when (eq? editor% text%) (st 'standard e get-file-format)) (when path - (test #"WXME" 'content (with-input-from-file path - (lambda () - (read-bytes 4))))))] + (test #"#reader(lib\"read.ss\"\"wxme\")WXME" 'content (with-input-from-file path + (lambda () + (read-bytes 31))))))] [ck-mode (lambda (-mode) (test (if (eq? editor% pasteboard%) (if (eq? -mode 'copy) @@ -74,12 +74,12 @@ (ck-mode 'text) (ck-text #f) (when (eq? editor% text%) - (st "WXME" e get-text 0 4)) + (st "#reader(lib\"read.ss\"\"wxme\")WXME" e get-text 0 31)) (st #t e load-file "tmp98" 'same) (ck-mode 'same) (ck-text #f) - (when (eq? editor% text%) - (st "WXME" e get-text 0 4)) + (when (eq? editor% text%) + (st "#reader(lib\"read.ss\"\"wxme\")WXME" e get-text 0 31)) (st #t e load-file "tmp98" 'guess) (ck-mode 'guess) (ck-binary #f) @@ -475,5 +475,18 @@ ;; ---------------------------------------- +(let ([pb (new pasteboard%)] + [es (new editor-snip%)]) + (send pb insert es) + (st es pb find-first-snip) + (send pb remove es) + (st #f es is-owned?) + (st #f pb find-first-snip) + (send pb insert es) + (st es pb find-first-snip) + (st #t es is-owned?)) + +;; ---------------------------------------- + (report-errs)