Changeset 14660 in project


Ignore:
Timestamp:
05/16/09 13:39:22 (11 years ago)
Author:
sjamaan
Message:

Add tests for importing files

Location:
release/4/s48-modules/tests
Files:
3 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/s48-modules/tests/run.scm

    r14559 r14660  
    5858               (import prefixed-import)
    5959               i1)))
     60
     61(test "include file in current dir"
     62      102
     63      (eval '(begin
     64               (define-structure simple-file-import
     65                 (export j1)
     66                 (open scheme)
     67                 (files simple-file-import))
     68               (import simple-file-import)
     69               j1)))
     70
     71(test "include file in subdir"
     72      103
     73      (eval '(begin
     74               (define-structure subdir-file-import
     75                 (export k1)
     76                 (open scheme)
     77                 (files subdir/subdir-file-import))
     78               (import subdir-file-import)
     79               k1)))
     80
     81;; This will not work because of how INCLUDE works; it's always expanded
     82;; before any macros are
     83#;(test "include file in subsubdir"
     84      104
     85      (eval '(begin
     86               (include-structure-definition "subdir/subdir-inclusion.scm")
     87               (import subsubdir-file-import)
     88               l1)))
Note: See TracChangeset for help on using the changeset viewer.