Changeset 10244


Ignore:
Timestamp:
10/27/05 18:56:36 (16 years ago)
Author:
piso
Message:

Added tests for JCLASS errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/java-tests.lisp

    r10243 r10244  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.7 2005-10-27 18:34:07 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.8 2005-10-27 18:56:36 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7878    (jcall (jmethod "java.lang.Object" "equals" "java.lang.Object")
    7979           class1 class2))
     80  t)
     81
     82;; No such class.
     83(deftest jclass.5
     84  (signals-error (jclass "foo") 'error)
     85  t)
     86
     87;; Silly argument.
     88(deftest jclass.6
     89  (signals-error (jclass 42) 'error)
    8090  t)
    8191
Note: See TracChangeset for help on using the changeset viewer.