From 19fbe17ff4fbaba6c321b02e8b000f82aed76ea7 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 10 Oct 2008 11:12:54 +0000
Subject: [PATCH] test labels

---
 Tests.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Tests.hs b/Tests.hs
index d8dc86c97..ea6e123d5 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -39,8 +39,9 @@ alltests = concattests [
 tests = 
  TestList
  [
-         show (dollars 1)   ~?= "$1.00"
-        ,show (hours 1)     ~?= "h1.00"      -- should be 1.0h
+         "display dollar amount" ~: show (dollars 1) ~?= "$1.00"
+         
+        ,"display time amount" ~: show (hours 1) ~?= "1.0h"
 
         ,"amount precision"   ~: do
            let a1 = Amount (getcurrency "$") 1.23 1