From 7706f8498eeb93d3c6bdfb2b9be0ed50ed27f320 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 19 Aug 2018 19:05:59 +0100
Subject: [PATCH] tests: comment

---
 hledger-lib/Hledger/Read/JournalReader.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index 735cc3de1..6c90635bf 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -885,7 +885,6 @@ easytests = tests "JournalReader" [
 
   ,tests "periodictransactionp" [
 
-    -- tests from #807
     test "more-period-text-in-comment-after-one-space" $ expectParseEq periodictransactionp
       "~ monthly from 2018/6 ;In 2019 we will change this\n" 
       nullperiodictransaction {
@@ -900,7 +899,8 @@ easytests = tests "JournalReader" [
         ,ptpostings    = []
         }
 
-    ,_test "more-period-text-in-description-after-two-spaces" $ expectParseEq periodictransactionp -- TODO 
+     -- TODO #807
+    ,_test "more-period-text-in-description-after-two-spaces" $ expectParseEq periodictransactionp 
       "~ monthly from 2018/6   In 2019 we will change this\n" 
       nullperiodictransaction {
          ptperiodexpr  = "monthly from 2018/6"
@@ -909,7 +909,7 @@ easytests = tests "JournalReader" [
         ,ptdescription = "In 2019 we will change this\n"
         }
 
-    ,_test "more-period-text-in-description-after-one-space" $ expectParseEq periodictransactionp -- TODO
+    ,_test "more-period-text-in-description-after-one-space" $ expectParseEq periodictransactionp
       "~ monthly from 2018/6 In 2019 we will change this\n" 
       nullperiodictransaction {
          ptperiodexpr  = "monthly from 2018/6"
@@ -918,7 +918,7 @@ easytests = tests "JournalReader" [
         ,ptdescription = "In 2019 we will change this\n"
         }
 
-    ,_test "Next-year-in-description" $ expectParseEq periodictransactionp -- TODO read error
+    ,_test "Next-year-in-description" $ expectParseEq periodictransactionp
       "~ monthly  Next year blah blah\n"
       nullperiodictransaction {
          ptperiodexpr  = "monthly"