Changeset 25475 in project


Ignore:
Timestamp:
11/03/11 03:11:54 (9 years ago)
Author:
Ivan Raikov
Message:

typeclass: using assert in unit test script

Location:
release/4/typeclass/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/typeclass/trunk/tests/run.scm

    r18668 r25475  
    66;;  Ported to Chicken Scheme by Ivan Raikov.
    77;;
    8 ;;  Copyright 2004-2010 Andre van Tonder, Ivan Raikov.
     8;;  Copyright 2004-2011 Andre van Tonder, Ivan Raikov.
    99;;
    1010;;  Permission is hereby granted, free of charge, to any person
     
    319319
    320320(with-instance ((Interpreter final-interpreter))
    321   (interpret
    322      (mult (abel (num 2)) (abel (num 2)))))
     321      (assert (= (interpret
     322                  (mult (abel (num 2)) (abel (num 2))))
     323                 4)
     324              ))
  • release/4/typeclass/trunk/typeclass.scm

    r18876 r25475  
    66;;  Ported to Chicken Scheme by Ivan Raikov.
    77;;
    8 ;;  Copyright 2004-2010 Andre van Tonder, Ivan Raikov.
     8;;  Copyright 2004-2011 Andre van Tonder, Ivan Raikov.
    99;;
    1010;;  Permission is hereby granted, free of charge, to any person
     
    205205      (let ((name  (car name.quals))
    206206            (quals (cdr name.quals)))
    207         `(,%define ,name (lambda=> ,quals . ,body))))
     207        `(,%define ,name (lambda=> ,quals . ,body))))
    208208    ))
    209209
  • release/4/typeclass/trunk/typeclass.setup

    r18876 r25475  
    77 'typeclass
    88 `("typeclass.so" "typeclass.import.so")
    9  `((version 1.0)))
     9 `((version 1.1)))
Note: See TracChangeset for help on using the changeset viewer.