diff --git a/collects/tests/planet/examples/dummy-module.ss b/collects/tests/planet/examples/dummy-module.ss
new file mode 100644
index 0000000000..01b54b75dd
--- /dev/null
+++ b/collects/tests/planet/examples/dummy-module.ss
@@ -0,0 +1,5 @@
+#lang planet plt/dummy-package
+
+successful
+test
+result
diff --git a/collects/tests/planet/examples/dummy-package/lang/reader.ss b/collects/tests/planet/examples/dummy-package/lang/reader.ss
new file mode 100644
index 0000000000..0b94d9d708
--- /dev/null
+++ b/collects/tests/planet/examples/dummy-package/lang/reader.ss
@@ -0,0 +1,2 @@
+(module reader syntax/module-reader
+  #:language '(planet plt/dummy-package))
diff --git a/collects/tests/planet/examples/dummy-package/main.ss b/collects/tests/planet/examples/dummy-package/main.ss
new file mode 100644
index 0000000000..d8297d1489
--- /dev/null
+++ b/collects/tests/planet/examples/dummy-package/main.ss
@@ -0,0 +1,11 @@
+#lang scheme
+
+(define-syntax (module-begin stx)
+  (syntax-case stx ()
+    [(_ term ...)
+     (syntax/loc stx
+       (#%module-begin
+        (define result '(term ...))
+        (provide result)))]))
+
+(provide (rename-out [module-begin #%module-begin]))
diff --git a/collects/tests/planet/lang.ss b/collects/tests/planet/lang.ss
new file mode 100644
index 0000000000..6ad3c381e2
--- /dev/null
+++ b/collects/tests/planet/lang.ss
@@ -0,0 +1,26 @@
+(load-relative "../mzscheme/loadtest.ss")
+
+(Section 'planet)
+
+(require planet/util
+         scheme/contract)
+
+;; Testing: #lang planet
+
+(test (void)
+      'add-hard-link
+      (with-handlers ([exn:fail? values])
+        (add-hard-link "plt" "dummy-package.plt" 1 0
+                       (string->path "examples/dummy-package"))))
+
+(test '(successful test result)
+      'hash-lang-planet
+      (with-handlers ([exn:fail? values])
+        (dynamic-require "examples/dummy-module.ss" 'result)))
+
+(test (void)
+      'remove-hard-link
+      (with-handlers ([exn:fail? values])
+        (remove-hard-link "plt" "dummy-package.plt" 1 0)))
+
+(report-errs)