---
 test/T083-sexpr-count.sh | 85 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)

diff --git a/test/T083-sexpr-count.sh b/test/T083-sexpr-count.sh
index e825ef3d..f3010d11 100755
--- a/test/T083-sexpr-count.sh
+++ b/test/T083-sexpr-count.sh
@@ -27,4 +27,89 @@ cat <<EOF >EXPECTED
 EOF
 test_expect_equal_file EXPECTED OUTPUT
 
+test_begin_subtest "from addresses with any count"
+notmuch address --query=sexp '(from (count 1 *))' | sort > OUTPUT
+cat <<EOF >EXPECTED
+Adrian Perez de Castro <ape...@igalia.com>
+Alex Botero-Lowry <alex.boterolo...@gmail.com>
+Alexander Botero-Lowry <alex.boterolo...@gmail.com>
+Aron Griffis <agrif...@n01se.net>
+Carl Worth <cwo...@cworth.org>
+Chris Wilson <ch...@chris-wilson.co.uk>
+François Boulogne <boulogn...@gmail.com>
+Ingmar Vanhassel <ing...@exherbo.org>
+Israel Herraiz <i...@herraiz.org>
+Jan Janak <j...@ryngle.com>
+Jjgod Jiang <gzjj...@gmail.com>
+Keith Packard <kei...@keithp.com>
+Lars Kellogg-Stedman <l...@seas.harvard.edu>
+Mikhail Gusarov <dotted...@dottedmag.net>
+Olivier Berger <olivier.ber...@it-sudparis.eu>
+Rolland Santimano <rollandsantim...@yahoo.com>
+Stewart Smith <stew...@flamingspork.com>
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "from addresses with unique words"
+notmuch address --query=sexp '(from (count 1))' | sort > OUTPUT
+cat <<EOF >EXPECTED
+Adrian Perez de Castro <ape...@igalia.com>
+Aron Griffis <agrif...@n01se.net>
+Chris Wilson <ch...@chris-wilson.co.uk>
+François Boulogne <boulogn...@gmail.com>
+Ingmar Vanhassel <ing...@exherbo.org>
+Israel Herraiz <i...@herraiz.org>
+Olivier Berger <olivier.ber...@it-sudparis.eu>
+Rolland Santimano <rollandsantim...@yahoo.com>
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "from addresses with only non-unique words"
+notmuch address --query=sexp '(from (not (count 1)))' | sort > OUTPUT
+cat <<EOF >EXPECTED
+Alex Botero-Lowry <alex.boterolo...@gmail.com>
+Alexander Botero-Lowry <alex.boterolo...@gmail.com>
+Carl Worth <cwo...@cworth.org>
+Jan Janak <j...@ryngle.com>
+Jjgod Jiang <gzjj...@gmail.com>
+Keith Packard <kei...@keithp.com>
+Lars Kellogg-Stedman <l...@seas.harvard.edu>
+Mikhail Gusarov <dotted...@dottedmag.net>
+Stewart Smith <stew...@flamingspork.com>
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "to addresses with any count"
+notmuch address --output=recipients --deduplicate=address --output=address \
+       --query=sexp '(to (count 1 *))' | sort >OUTPUT
+cat <<EOF >EXPECTED
+al...@archlinux.org
+aur-gene...@archlinux.org
+dotted...@dottedmag.net
+kei...@keithp.com
+notmuch@notmuchmail.org
+olivier.ber...@it-sudparis.eu
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "to addresses with unique words"
+notmuch address --query=sexp --output=recipients --output=address '(to (count 
1))' | sort > OUTPUT
+cat <<EOF >EXPECTED
+al...@archlinux.org
+aur-gene...@archlinux.org
+dotted...@dottedmag.net
+kei...@keithp.com
+notmuch@notmuchmail.org
+olivier.ber...@it-sudparis.eu
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "to addresses with only non-unique words"
+notmuch address --output=recipients --deduplicate=address --output=address \
+       --query=sexp '(to (not (count 1)))' | sort > OUTPUT
+cat <<EOF >EXPECTED
+notmuch@notmuchmail.org
+EOF
+test_expect_equal_file EXPECTED OUTPUT
+
 test_done
-- 
2.39.1

_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org

Reply via email to