Daniel Kahn Gillmor <d...@fifthhorseman.net> writes: > test_begin_subtest "Show message: sexp" > add_message "[subject]=\"sexp-show-subject\"" "[date]=\"Sat, 01 Jan 2000 > 12:00:00 -0000\"" "[bcc]=\"test_suite+...@notmuchmail.org\"" > "[reply-to]=\"test_suite+repl...@notmuchmail.org\"" > "[body]=\"sexp-show-message\"" > output=$(notmuch show --format=sexp "sexp-show-message") > -test_expect_equal "$output" "((((:id \"${gen_msg_id}\" :match t :excluded > nil :filename (\"${gen_msg_filename}\") :timestamp 946728000 :date_relative > \"2000-01-01\" :tags (\"inbox\" \"unread\") :headers (:Subject > \"sexp-show-subject\" :From \"Notmuch Test Suite > <test_su...@notmuchmail.org>\" :To \"Notmuch Test Suite > <test_su...@notmuchmail.org>\" :Bcc \"test_suite+...@notmuchmail.org\" > :Reply-To \"test_suite+repl...@notmuchmail.org\" :Date \"Sat, 01 Jan 2000 > 12:00:00 +0000\") :body ((:id 1 :content-type \"text/plain\" :content > \"sexp-show-message\n\"))) ())))" > +test_expect_equal "$output" "((((:id \"${gen_msg_id}\" :match t :excluded > nil :filename (\"${gen_msg_filename}\") :timestamp 946728000 :date_relative > \"2000-01-01\" :tags (\"inbox\" \"unread\") :body ((:id 1 :content-type > \"text/plain\" :content \"sexp-show-message\n\")) :headers (:Subject > \"sexp-show-subject\" :From \"Notmuch Test Suite > <test_su...@notmuchmail.org>\" :To \"Notmuch Test Suite > <test_su...@notmuchmail.org>\" :Bcc \"test_suite+...@notmuchmail.org\" > :Reply-To \"test_suite+repl...@notmuchmail.org\" :Date \"Sat, 01 Jan 2000 > 12:00:00 +0000\")) ())))"
It would be cool if we could canonicalize (sort) these s-expressions, but I didn't see a nice / easy way to do that. Elisp-wizards feel free to jump in here... d _______________________________________________ notmuch mailing list notmuch@notmuchmail.org https://notmuchmail.org/mailman/listinfo/notmuch