blob: f2bd04518be06a92c5fce03c11ad0a33ac683946 (
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
34
35
36
37
38
|
$NetBSD: patch-be,v 1.1 2005/10/17 20:18:34 is Exp $
--- vsuite/quick/ptrstr/pointer.mpd.orig 2005-10-17 22:06:31.000000000 +0200
+++ vsuite/quick/ptrstr/pointer.mpd
@@ -0,0 +1,33 @@
+resource pointer()
+ type pt = ptr int
+ pt foo
+ pt bar
+ pt baz
+ pt nul
+ string[20] foos
+ string[20] bars
+
+ write("Testing pointer-string-pointer conversions:")
+
+ nul = null
+ write("Null pointer:", nul, "; string:", string(nul),
+ "; int:", int(nul), "; pt(==null==):", pt("==null=="))
+
+ baz = new(int)
+
+ foo = new(int)
+ foos= string(foo)
+
+ bar = pt(foos)
+ bars= string(bar)
+
+ baz = pt(foos||"X")
+
+ write("pointer identity:", foo == bar)
+ write("string identity:", foos == bars)
+ write("pointerX identity:", foo == baz)
+
+ write("Expect invalid conversion:")
+ baz = pt("invalid")
+
+end
|
