1 files changed, 31 insertions, 0 deletions
diff --git a/tests/012/use-as.tl b/tests/012/use-as.tl
new file mode 100644
index 00000000..681a968d
--- /dev/null
+++ b/tests/012/use-as.tl
@@ -0,0 +1,31 @@
+(load "../common")
+
+(defpackage lottery
+  (:local draw)
+  (:fallback usr))
+
+(defpackage graphics
+  (:local draw)
+  (:fallback usr))
+
+(defpackage gui-lottery
+  (:fallback lottery graphics usr pub)
+  (:use-syms-as lottery:draw ldraw
+                graphics:draw gdraw))
+
+(in-package gui-lottery)
+
+(mtest
+  (package-name (symbol-package 'ldraw)) "lottery"
+  (package-name (symbol-package 'gdraw)) "graphics"
+  (symbol-name 'ldraw) "draw"
+  (symbol-name 'gdraw) "draw")
+
+(mtest
+  (tostring 'ldraw) "draw"
+  (tostring 'gdraw) "graphics:draw")
+
+(mtest
+  (use-sym-as 3 '#:foo) :error
+  (use-sym-as 'ldraw 3) :error
+  (use-sym-as 'x 'x) x)