From f9ed7ac1aeb10cf0924995fa79abed91b8219f80 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 11 Jun 2008 21:12:17 -0500 Subject: [PATCH] Add sanity check --- core/source-files/source-files-tests.factor | 5 +++++ core/source-files/source-files.factor | 1 + 2 files changed, 6 insertions(+) create mode 100644 core/source-files/source-files-tests.factor diff --git a/core/source-files/source-files-tests.factor b/core/source-files/source-files-tests.factor new file mode 100644 index 0000000000..e5e04c777f --- /dev/null +++ b/core/source-files/source-files-tests.factor @@ -0,0 +1,5 @@ +IN: source-files.tests +USING: source-files tools.test assocs sequences strings +namespaces kernel ; + +[ { } ] [ source-files get keys [ string? not ] filter ] unit-test diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor index 36a1806e12..454f148974 100755 --- a/core/source-files/source-files.factor +++ b/core/source-files/source-files.factor @@ -44,6 +44,7 @@ uses definitions ; \ source-file construct ; : source-file ( path -- source-file ) + dup string? [ "Invalid source file path" throw ] unless source-files get [ ] cache ; : reset-checksums ( -- )