Add sanity check

2008-06-11 21:12:17 -05:00 · 2008-06-11 21:12:17 -05:00 · f9ed7ac1ae
parent c1509d5fe5
commit f9ed7ac1ae
2 changed files with 6 additions and 0 deletions
--- a/core/source-files/source-files-tests.factor
+++ 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
--- 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 [ <source-file> ] cache ;

 : reset-checksums ( -- )