Changeset 9540 in project


Ignore:
Timestamp:
03/13/08 16:44:36 (12 years ago)
Author:
Kon Lovett
Message:

Added warning support to test-case/suite,

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/2/testbase/testbase-hygienic.scm

    r9493 r9540  
    545545  (syntax-case X ()
    546546
     547    [(SK TSTNAM (warn WRNG) ([VAR VAL] ...) CLAUSE0 ...)
     548      (tbs$test-name? #'TSTNAM)
     549      (with-syntax ([STATE (tbs$state-synobj #'SK)]
     550                    [DTOR (datum->syntax-object #'SK 'test/case-dtor)]
     551                    [ESCR (datum->syntax-object #'SK 'test/case-escr)])
     552        #'(tbm$test-case-common STATE TSTNAM DTOR ESCR WRNG ([VAR VAL] ...) CLAUSE0 ...))]
     553
    547554    [(SK TSTNAM ([VAR VAL] ...) CLAUSE0 ...)
    548555      (tbs$test-name? #'TSTNAM)
     
    551558                    [ESCR (datum->syntax-object #'SK 'test/case-escr)])
    552559        #'(tbm$test-case-common STATE TSTNAM DTOR ESCR '() ([VAR VAL] ...) CLAUSE0 ...))]
     560
     561    [(SK TSTNAM (warn WRNG) CLAUSE0 ...)
     562      (tbs$test-name? #'TSTNAM)
     563      (with-syntax ([STATE (tbs$state-synobj #'SK)]
     564                    [DTOR (datum->syntax-object #'SK 'test/case-dtor)]
     565                    [ESCR (datum->syntax-object #'SK 'test/case-escr)])
     566        #'(tbm$test-case-common STATE TSTNAM DTOR ESCR WRNG () CLAUSE0 ...))]
    553567
    554568    [(SK TSTNAM CLAUSE0 ...)
     
    748762  (syntax-case X ()
    749763
     764    [(SK TSTNAM (warn WRNG) ([VAR VAL] ...) CLAUSE0 ...)
     765      (tbs$test-name? #'TSTNAM)
     766      (with-syntax ([STATE (tbs$state-synobj #'SK)]
     767                    [DTOR (datum->syntax-object #'SK 'test/suite-dtor)]
     768                    [ESCR (datum->syntax-object #'SK 'test/suite-escr)])
     769        #'(tbm$test-suite-common STATE TSTNAM DTOR ESCR WRNG ([VAR VAL] ...) CLAUSE0 ...))]
     770
    750771    [(SK TSTNAM ([VAR VAL] ...) CLAUSE0 ...)
    751772      (tbs$test-name? #'TSTNAM)
     
    754775                    [ESCR (datum->syntax-object #'SK 'test/suite-escr)])
    755776        #'(tbm$test-suite-common STATE TSTNAM DTOR ESCR '() ([VAR VAL] ...) CLAUSE0 ...))]
     777
     778    [(SK TSTNAM (warn WRNG) CLAUSE0 ...)
     779      (tbs$test-name? #'TSTNAM)
     780      (with-syntax ([STATE (tbs$state-synobj #'SK)]
     781                    [DTOR (datum->syntax-object #'SK 'test/suite-dtor)]
     782                    [ESCR (datum->syntax-object #'SK 'test/suite-escr)])
     783        #'(tbm$test-suite-common STATE TSTNAM DTOR ESCR WRNG () CLAUSE0 ...))]
    756784
    757785    [(SK TSTNAM CLAUSE0 ...)
Note: See TracChangeset for help on using the changeset viewer.