(use testbase testbase-output-compact testbase-output-human testbase-output-html testbase-output-minimal)

(define-test
  (my-test arg)
  "My Test"
  (test/case
    (conc "My Test: " arg)
    (expect-eq 'baz 'baz)))

(define-test
  (my-test2 arg)
  "My Test 2"
  (test/case
    (conc "My Test 2: " arg)
    (expect-eq 'weeble 'weeble)))

(define-test
  basic-test
  "Stuff"
  (test/case
    "More Stuff"
    (expect-eq 'qux 'qux)
    (my-test 'foo)
    (expect-eq 'qux 'qux)
    (my-test 'bar)
    (expect-eq 'qux 'qux))
  (test/case
    "More Stuff2"
    (expect-eq 'qux 'qux)
    (my-test2 'foo)
    (expect-eq 'qux 'qux)
    (my-test2 'bar)
    (expect-eq 'qux 'qux))
  (my-test 'foo)
  (my-test 'bar)
  )

(test::for-each (cut test::styler-set! <> test::output-style-human))

(run-test "Some Testing")