Changeset 10230


Ignore:
Timestamp:
10/25/05 17:08:53 (16 years ago)
Author:
piso
Message:

JCLASS-NAME

File:
1 edited

Legend:

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

    r10226 r10230  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.4 2005-10-25 14:43:49 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.5 2005-10-25 17:08:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5959  java-object)
    6060
    61 (deftest jclass-name.1
    62   (jclass-name (jclass "java.lang.Object"))
    63   "java.lang.Object")
    64 
    65 (deftest jclass-name.2
    66   (jclass-name (jclass "java.lang.Object") "java.lang.Object")
    67   t
    68   "java.lang.Object")
    69 
    70 (deftest jclass-name.3
    71   (jclass-name (jclass "java.lang.Object") "foo")
    72   nil
    73   "java.lang.Object")
    74 
    7561(deftest jclass-of.1
    7662  (jclass-of "foo")
     
    9783  nil
    9884  nil)
     85
     86(deftest jclass-name.1
     87  (jclass-name "java.lang.String")
     88  "java.lang.String")
     89
     90(deftest jclass-name.2
     91  (signals-error (jclass-name "foo") 'error)
     92  t)
     93
     94(deftest jclass-name.3
     95  (signals-error (jclass-name 42) 'error)
     96  t)
     97
     98(deftest jclass-name.4
     99  (jclass-name (jclass "java.lang.String"))
     100  "java.lang.String")
     101
     102(deftest jclass-name.5
     103  (jclass-name (jclass "java.lang.String") "java.lang.String")
     104  t
     105  "java.lang.String")
     106
     107(deftest jclass-name.6
     108  (jclass-name (jclass "java.lang.String") "java.lang.Object")
     109  nil
     110  "java.lang.String")
     111
     112(deftest jclass-name.7
     113  (jclass-name (jclass "java.lang.String") "foo")
     114  nil
     115  "java.lang.String")
    99116
    100117(deftest jcall.1
Note: See TracChangeset for help on using the changeset viewer.