(use test iexpr)

(test-group "iexpr test"

    (test "empty" '() (tree->list (parse 'empty "")))

    (test "line" '((pomVersion 3)) (tree->list (parse 'line "pomVersion 3")))

    (test "hierarchy1" 
	  '((a (b (c (d)))))
	  (tree->list (parse 'hierarchy
#<<EOF
a
 b
  c
   d
EOF
)))

    (test "hierarchy2" 
	  '((a (b (c (d)))))
	  (tree->list (parse 'hierarchy
#<<EOF
a

 b

  c

   d
EOF
)))

    (test "hierarchy3" 
	  '((a (b (c (d)))))
	  (tree->list (parse 'hierarchy
#<<EOF
a

			      b

			       c

			        d
EOF
)))

    (test "hierarchy4" 
	  '((a) (b) (c) (d))
	  (tree->list (parse 'hierarchy
#<<EOF
a
b
c
d
EOF
)))

    (test 

     `((pomVersion 3) 
	(id jing-dao) 
	(name "Jing DAO Framework") 
	(currentVersion 0.6.5) 
	(organization (name JadeTower) 
	 (url http://jadetower.org) 
	 (logo /images/jadetower-logo.png))
	(inceptionYear 2003) 
	(package org.jadetower) 
	(logo /images/jing-logo.png) 
	(description "Java Based DAO Framework") 
	(url http://jingdao.sf.net) 
	(issueTrackingUrl http://sourceforge.net/tracker/?group_id=75092&atid=542902) 
	(siteAddress jingdao.sf.net) 
	(distributionDirectory /home/groups/j/ji/jingdao/htdocs/dist) 
	(developers 
	 (name "J Aaron Farr") 
	 (id farra) 
	 (roles ("Java Developer" "Admin"))) 
	(build 
	 (sourceDirectory "${basedir}/src/java") 
	 (unitTestSourceDirectory "${basedir}/src/test") 
	 (unit test 
	  (includes **/*TestCase.java) 
	  (excludes **/Abstract*)) 
	 (resources 
	  (directory "${basedir}/src/conf") 
	  (targetPath BLOCK-INF)))
	)

     (tree->list 

	  (parse 'test.iexpr 
#<<EOF
pomVersion  3
 
id    jing-dao
name 'Jing DAO Framework'
currentVersion 0.6.5

organization
     name   JadeTower
     url    http://jadetower.org
     logo   /images/jadetower-logo.png

inceptionYear  2003
package        org.jadetower
logo           /images/jing-logo.png

description    'Java Based DAO Framework'

url             http://jingdao.sf.net
issueTrackingUrl   http://sourceforge.net/tracker/?group_id=75092&atid=542902
siteAddress     jingdao.sf.net

distributionDirectory  /home/groups/j/ji/jingdao/htdocs/dist

developers
     name        'J Aaron Farr'
     id           farra
     roles        ( 'Java Developer' 'Admin' )

build 
 sourceDirectory           '${basedir}/src/java'
 unitTestSourceDirectory   '${basedir}/src/test'
 
 unit test 
  includes **/*TestCase.java 
  excludes **/Abstract* 
 resources 
     directory    '${basedir}/src/conf'
     targetPath   BLOCK-INF
EOF
)))

    (test "srfi49-ex1" 
	  '((define (fac x) (if (= x 0) 1 (* x (fac (- x 1))))))
	   (tree->list (parse 'srfi49-ex1
#<<EOF
define
  fac x
  if (= x 0) 1
    * x
      fac
       - x 1
EOF
)))

)

(test-exit)