;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.vm.test)

;;;;;;
;;; Test

(def suite* (test :in root-suite))

(def test test/gcd ()
  (is (= 6 (evaluate/lisp '(gcd 24 18)
                          '((gcd . (lambda (a b)
                                     (if (< a b)
                                         (gcd b a)
                                         (if (= 0 b)
                                             a
                                             (gcd b (mod a b)))))))))))