diff --git a/gnucash/import-export/qif-imp/test/test-qif-imp.scm b/gnucash/import-export/qif-imp/test/test-qif-imp.scm
index dda423448a..7b5a0e33a7 100644
--- a/gnucash/import-export/qif-imp/test/test-qif-imp.scm
+++ b/gnucash/import-export/qif-imp/test/test-qif-imp.scm
@@ -66,19 +66,19 @@
   (let ((parsed (qif-file:parse-price-line "\"ABC\",1.0,\"1/1/04\""))
         (model (make-qif-price)))
     (qif-price:set-symbol! model "ABC")
-    (qif-price:set-share-price! model "1.0")
+    (qif-price:set-share-price! model "1")
     (qif-price:set-date! model "1/1/04")
-    (test-equal parsed model))
+    (test-equal "parse-price-line-decimal" model parsed))
 
   (let ((parsed (qif-file:parse-price-line "\"ABC\",1 3/4,\"1/1' 4\""))
         (model (make-qif-price)))
     (qif-price:set-symbol! model "ABC")
-    (qif-price:set-share-price! model "1.75")
+    (qif-price:set-share-price! model "7/4")
     (qif-price:set-date! model "1/1' 4")
-    (test-equal parsed model))
+    (test-equal "parse-price-line-fraction" parsed model))
 
   (let ((parsed (qif-file:parse-price-line "\"ABC\",,\"1/1' 4\"")))
-    (test-equal parsed #f))
+    (test-equal "parse-price-line-empty" #f parsed))
 
   (let ((parsed (qif-file:parse-price-line "\"ABC\",\"1/1' 4\"")))
-    (test-equal parsed #f)))
+    (test-equal "parse-price-line-missingcomma" #f parsed)))