← Back to branch summary

~ubuntu-branches/ubuntu/hardy/swig1.3/hardy

« back to all changes in this revision

Viewing changes to Examples/test-suite/schemerunme/multiple_inheritance_proxy.scm

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2005-12-05 01:16:04 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20051205011604-ygx904it6413k3go
Tags: 1.3.27-1ubuntu1
Resynchronise with Debian again, for the new subversion packages.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Examples/test-suite/schemerunme/multiple_inheritance_proxy.scm
 
1
(define-macro (check test)
 
2
  `(if (not ,test) (error "Error in test" ',test)))
 
3
 
 
4
(define b (make <Bar>))
 
5
(check (= (bar b) 1))
 
6
 
 
7
(define f (make <Foo>))
 
8
(check (= (foo f) 2))
 
9
 
 
10
(define fb (make <FooBar>))
 
11
(check (= (bar fb) 1))
 
12
(check (= (foo fb) 2))
 
13
(check (= (fooBar fb) 3))
 
14
 
 
15
(exit 0)