From 9e6809cabafe942d9e2f0e8cf932d4cbf7399b7e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 Aug 2013 06:42:44 -0600 Subject: [PATCH] fix `planet/version' Closes PR 13975 --- pkgs/planet-lib/planet/private/version.rkt | 1 + .../racket-test/tests/planet/examples/dummy-package/me.rkt | 4 ++++ pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt | 2 ++ 3 files changed, 7 insertions(+) create mode 100644 pkgs/racket-pkgs/racket-test/tests/planet/examples/dummy-package/me.rkt diff --git a/pkgs/planet-lib/planet/private/version.rkt b/pkgs/planet-lib/planet/private/version.rkt index cb019392f9..366fe576f7 100644 --- a/pkgs/planet-lib/planet/private/version.rkt +++ b/pkgs/planet-lib/planet/private/version.rkt @@ -4,6 +4,7 @@ racket/match unstable/syntax racket/syntax + racket/private/this-expression-source-directory planet/planet-archives) (provide this-package-version diff --git a/pkgs/racket-pkgs/racket-test/tests/planet/examples/dummy-package/me.rkt b/pkgs/racket-pkgs/racket-test/tests/planet/examples/dummy-package/me.rkt new file mode 100644 index 0000000000..d0fbb6151d --- /dev/null +++ b/pkgs/racket-pkgs/racket-test/tests/planet/examples/dummy-package/me.rkt @@ -0,0 +1,4 @@ +#lang racket/base +(require planet/version) +(provide me) +(define me (this-package-version)) diff --git a/pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt b/pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt index 8151175613..7034435dd3 100644 --- a/pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/planet/lang.rkt @@ -15,6 +15,8 @@ => (void) (dynamic-require `(file ,(in-here "examples/dummy-module.rkt")) 'result) => '(successful test result) + (dynamic-require '(planet plt/dummy-package/me) 'me) + => '("plt" "dummy-package.plt" 1 0) (remove-hard-link "plt" "dummy-package.plt" 1 0) => (void)