unofficial mirror of notmuch@notmuchmail.org
 help / color / mirror / code / Atom feed
blob 43e13076b08bb6476b069ba7adb6d05436158fc7 5111 bytes (raw)
name: test/emacs-subject-to-filename 	 # note: path name is non-authoritative(*)

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
 
#!/usr/bin/env bash

test_description="emacs: mail subject to filename"
. ./test-lib.sh

# emacs server can't be started in a child process with $(test_emacs ...)
test_emacs '(ignore)'

# test notmuch-wash-subject-to-patch-sequence-number (subject)
test_begin_subtest "no patch sequence number"
output=$(test_emacs '(format "%S" (notmuch-wash-subject-to-patch-sequence-number
      "[PATCH] A normal patch subject without numbers"))'
)
test_expect_equal "$output" '"nil"'

test_begin_subtest "patch sequence number #1"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[PATCH 2/3] A most regular patch subject")'
)
test_expect_equal "$output" 2

test_begin_subtest "patch sequence number #2"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "  [dummy list prefix]  [RFC PATCH v2 13/42]  Special prefixes")'
)
test_expect_equal "$output" 13

test_begin_subtest "patch sequence number #3"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[PATCH 2/3] [PATCH 032/037] use the last prefix")'
)
test_expect_equal "$output" 32

test_begin_subtest "patch sequence number #4"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[dummy list prefix] [PATCH 2/3] PATCH 3/3] do not use a broken prefix")'
)
test_expect_equal "$output" 2

test_begin_subtest "patch sequence number #5"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[RFC][PATCH 3/5][PATCH 4/5][PATCH 5/5] A made up test")'
)
test_expect_equal "$output" 5

test_begin_subtest "patch sequence number #6"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[PATCH 2/3] this -> [PATCH 3/3] is not a prefix anymore [nor this 4/4]")'
)
test_expect_equal "$output" 2

test_begin_subtest "patch sequence number #7"
output=$(test_emacs '(notmuch-wash-subject-to-patch-sequence-number
      "[liberally accept crapola right before123/456and after] the numbers")'
)
test_expect_equal "$output" 123

# test notmuch-wash-subject-to-filename (subject &optional maxlen)
test_begin_subtest "filename #1"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "just a subject line")'
)
test_expect_equal "$output" '"just-a-subject-line"'

test_begin_subtest "filename #2"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      " [any]  [prefixes are ] [removed!] from the subject")'
)
test_expect_equal "$output" '"from-the-subject"'

test_begin_subtest "filename #3"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "  leading and trailing space  ")'
)
test_expect_equal "$output" '"leading-and-trailing-space"'

test_begin_subtest "filename #4"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "!#  leading ()// &%, and in between_and_trailing garbage ()(&%%")'
)
test_expect_equal "$output" '"-leading-and-in-between_and_trailing-garbage"'

test_begin_subtest "filename #5"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.-_01234567890")'
)
test_expect_equal "$output" '"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.-_01234567890"'

test_begin_subtest "filename #6"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "sequences of ... are squashed and trailing are removed ...")'
)
test_expect_equal "$output" '"sequences-of-.-are-squashed-and-trailing-are-removed"'

test_begin_subtest "filename #7"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "max length test" 1)'
)
test_expect_equal "$output" '"m"'

test_begin_subtest "filename #8"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "max length test /&(/%&/%%&¤%¤" 20)'
)
test_expect_equal "$output" '"max-length-test"'

test_begin_subtest "filename #9"
output=$(test_emacs '(notmuch-wash-subject-to-filename
      "[a prefix] [is only separated] by [spaces], so \"by\" is not okay!")'
)
test_expect_equal "$output" '"by-spaces-so-by-is-not-okay"'

# test notmuch-wash-subject-to-patch-filename (subject)
test_begin_subtest "patch filename #1"
output=$(test_emacs '(notmuch-wash-subject-to-patch-filename
      "[RFC][PATCH 099/100] rewrite notmuch")'
)
test_expect_equal "$output" '"0099-rewrite-notmuch.patch"'

test_begin_subtest "patch filename #2"
output=$(test_emacs '(notmuch-wash-subject-to-patch-filename
      "[RFC PATCH v1] has no patch number, default to 1")'
)
test_expect_equal "$output" '"0001-has-no-patch-number-default-to-1.patch"'

test_begin_subtest "patch filename #3"
output=$(test_emacs '(notmuch-wash-subject-to-patch-filename
      "[PATCH 4/5] the maximum length of a patch filename is 52 + patch sequence number + .patch extension")'
)
test_expect_equal "$output" '"0004-the-maximum-length-of-a-patch-filename-is-52-patch-s.patch"'

test_begin_subtest "patch filename #4"
output=$(test_emacs '(notmuch-wash-subject-to-patch-filename
      "[PATCH 4/5] the maximum length of a patch filename is 52 + patchh ! sequence number + .patch extension, *before* trimming trailing - and .")'
)
test_expect_equal "$output" '"0004-the-maximum-length-of-a-patch-filename-is-52-patchh.patch"'

test_done

debug log:

solving 43e1307 ...
found 43e1307 in https://yhetil.org/notmuch.git/

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://yhetil.org/notmuch.git/

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).