blob: ecba95174e0ca9549739798a6852b6fdb51c7f54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
diff --git a/tests/gdk.scm b/tests/gdk.scm
index 6e08f9f..6b01e83 100644
--- a/tests/gdk.scm
+++ b/tests/gdk.scm
@@ -1102,28 +1102,6 @@
(got (exact-positive-integer? (gdk-screen-height-mm))))
(test "gdk-screen-height-mm" #f want got))))
-;;
-;; gdk-selection-property-get
-;;
-
-(malloced-steady ;; with nothing ever requested
- (lambda ()
- (let* ((win sample-win)
- (want '(#f NONE 0))
- (got (gdk-selection-property-get win)))
- (test "gdk-selection-property-get" sample-win want got))))
-
-(malloced-steady ;; on a destroyed window
- (lambda ()
- (let* ((win (gdk-window-new #f 100 100 '() 'input-output 'toplevel))
- (want '(#f NONE 0))
- (got (begin
- (gdk-window-destroy win)
- (gdk-selection-property-get win))))
- ;; final free()s only take place under the main loop, so need this to
- ;; satisfy `malloced-steady
- (gtk-main-iteration-do #f)
- (test "gdk-selection-property-get" (list "destroyed win" win) want got))))
;;
;; gdk-text-extents
|