From c7bcd8282e737dbd647badaa393024cb1eded862 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sun, 17 Jan 2021 12:57:43 +0900 Subject: [PATCH] Add test/export.fs --- runtests.fs | 2 ++ test/export.fs | 31 +++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 test/export.fs diff --git a/runtests.fs b/runtests.fs index b440abb..38ab946 100644 --- a/runtests.fs +++ b/runtests.fs @@ -13,5 +13,7 @@ include test/utilities.fs include test/errorreport.fs include test/coreexttest.fs +include test/export.fs + report-errors report-and-exit diff --git a/test/export.fs b/test/export.fs new file mode 100644 index 0000000..ec8b0c0 --- /dev/null +++ b/test/export.fs @@ -0,0 +1,31 @@ +\ planckforth - +\ Copyright (C) 2021 nineties + +testing private and export + +: f1 ; +private{ + + : f2 ; + + T{ defined? f1 -> true }T + T{ defined? f2 -> true }T + + private{ + + : f3 ; + + T{ defined? f2 -> true }T + T{ defined? f3 -> true }T + + }private + + T{ defined? f1 -> true }T + T{ defined? f2 -> true }T + T{ defined? f3 -> false }T + +}private + +T{ defined? f1 -> true }T +T{ defined? f2 -> false }T +T{ defined? f3 -> false }T