source: project/release/4/macosx/trunk/tests/macosx-test.scm @ 35226

Last change on this file since 35226 was 35226, checked in by kon, 9 months ago

use csi+csc test runner

File size: 1.6 KB
Line 
1;;;; macosx-test
2
3(require-extension test)
4(require-extension macosx-env)
5(require-extension macosx-url)
6
7(define (print-info)
8  (print "     session-info:  " (session-info))
9  (print "     machine-name:  " (machine-name))
10  (print "  short-user-name:  " (short-user-name))
11  (print "   long-user-name:  " (long-user-name))
12  (print " machine-location:  " (machine-location))
13  (print "          metric?:  " (metric?))
14  (print "    computer-name:  " (computer-name))
15  (print "     console-user:  " (console-user))
16  (print "  local-host-name:  " (local-host-name))
17  (print "    location-name:  " (location-name))
18  (print " main-bundle-path:  " (main-bundle-path))
19  (print "       tick-count:  " (tick-count))
20  ;FIXME what selectors are viable?
21  #;(print "    gestalt 'addr:  " (gestalt 'addr)) )
22
23(define (delay-test ticks)
24  (print* "* Delaying for " ticks " ticks ...")
25  (delay-for-ticks ticks)
26  (print " Done *")
27  (newline) )
28
29(test-group "macosx-env"
30  (test-assert (session-info))
31  (test-assert (machine-name))
32  (test-assert (short-user-name))
33  (test-assert (long-user-name))
34  (test-assert (machine-location))
35  (test-assert (boolean? (metric?)))
36  (test-assert (computer-name))
37  (test-assert (console-user))
38  (test-assert (local-host-name))
39  (test-assert (location-name))
40  (test-assert (main-bundle-path))
41  (test-assert (tick-count))
42  ;FIXME what selectors are viable?
43  #;(test-assert (gestalt 'addr))
44)
45
46(delay-test 50)
47
48(print-info)
49
50(test-group "macosx-url - should launch default browser with \"http://www.apple.com/\""
51  (open-url "http://www.apple.com/")
52)
53
54(test-exit)
Note: See TracBrowser for help on using the repository browser.