commit b0622e4d4c60a9e677561bdf43f2a4631ced3884 · dunkirk.sh/gleam-bible-search

+99 -7
test/bible_search_test.gleam
···

       1
       1
        
       import bible_search

     

       2
       2
        
       import gleeunit

     

       3
       3
       +
       import gleeunit/should

     

       3
       4
        
       

     

       4
       5
        
       pub fn main() -> Nil {

     

       5
       6
        
         gleeunit.main()

     
···

       8
       9
        
       // gleeunit test functions end in `_test`

     

       9
       10
        
       pub fn parse_reference_test() {

     

       10
       11
        
         let ref = bible_search.parse_reference("FIRST KINGS 10 10")

     

       12
       12
       +
         should.be_ok(ref)

     

       13
       13
       +
       

     

       11
       14
        
         let expected_ref =

     

       12
       15
        
           Ok(bible_search.Reference(book: "FIRST KINGS", chapter: 10, verse: 10))

     

       13
       16
        
       

     

       14
       14
       -
         assert Ok(ref) == Ok(expected_ref)

     

       17
       17
       +
         should.be_true(ref == expected_ref)

     

       15
       18
        
       }

     

       16
       19
        
       

     

       17
       20
        
       pub fn parse_reference_single_word_book_test() {

     

       18
       21
        
         let ref = bible_search.parse_reference("GENESIS 1 1")

     

       22
       22
       +
         should.be_ok(ref)

     

       23
       23
       +
       

     

       19
       24
        
         let expected_ref =

     

       20
       25
        
           Ok(bible_search.Reference(book: "GENESIS", chapter: 1, verse: 1))

     

       21
       26
        
       

     

       22
       22
       -
         assert Ok(ref) == Ok(expected_ref)

     

       27
       27
       +
         should.be_true(ref == expected_ref)

     

       23
       28
        
       }

     

       24
       29
        
       

     

       25
       30
        
       pub fn parse_reference_invalid_chapter_test() {

     

       26
       31
        
         let ref = bible_search.parse_reference("GENESIS abc 1")

     

       32
       32
       +
         should.be_error(ref)

     

       33
       33
       +
       

     

       27
       34
        
         let expected_error = Error("Invalid chapter: abc")

     

       28
       35
        
       

     

       29
       29
       -
         assert ref == expected_error

     

       36
       36
       +
         should.be_true(ref == expected_error)

     

       30
       37
        
       }

     

       31
       38
        
       

     

       32
       39
        
       pub fn parse_reference_invalid_verse_test() {

     

       33
       40
        
         let ref = bible_search.parse_reference("GENESIS 1 xyz")

     

       41
       41
       +
         should.be_error(ref)

     

       34
       42
        
         let expected_error = Error("Invalid verse: xyz")

     

       35
       43
        
       

     

       36
       36
       -
         assert ref == expected_error

     

       44
       44
       +
         should.be_true(ref == expected_error)

     

       37
       45
        
       }

     

       38
       46
        
       

     

       39
       47
        
       pub fn parse_reference_too_few_parts_test() {

     

       40
       48
        
         let ref = bible_search.parse_reference("GENESIS 1")

     

       49
       49
       +
         should.be_error(ref)

     

       41
       50
        
         let expected_error = Error("invalid parse")

     

       42
       51
        
       

     

       43
       43
       -
         assert ref == expected_error

     

       52
       52
       +
         should.be_true(ref == expected_error)

     

       44
       53
        
       }

     

       45
       54
        
       

     

       46
       55
        
       pub fn parse_reference_too_many_parts_test() {

     

       47
       56
        
         let ref = bible_search.parse_reference("SONG OF SOLOMON 1 1")

     

       57
       57
       +
         should.be_error(ref)

     

       48
       58
        
         let expected_error = Error("invalid parse")

     

       49
       59
        
       

     

       50
       50
       -
         assert ref == expected_error

     

       60
       60
       +
         should.be_true(ref == expected_error)

     

       51
       61
        
       }

     

       52
       62
        
       

     

       53
       63
        
       pub fn parse_reference_lowercase_book_test() {

     

       54
       64
        
         let ref = bible_search.parse_reference("genesis 1 1")

     

       65
       65
       +
         should.be_ok(ref)

     

       66
       66
       +
       

     

       55
       67
        
         let expected_ref =

     

       56
       68
        
           Ok(bible_search.Reference(book: "GENESIS", chapter: 1, verse: 1))

     

       57
       69
        
       

     

       58
       58
       -
         assert Ok(ref) == Ok(expected_ref)

     

       70
       70
       +
         should.be_true(ref == expected_ref)

     

       71
       71
       +
       }

     

       72
       72
       +
       

     

       73
       73
       +
       pub fn bible_scan_found_verse_test() {

     

       74
       74
       +
         let bible =

     

       75
       75
       +
           "THE BOOK OF GENESIS

     

       76
       76
       +
       

     

       77
       77
       +
       CHAPTER 1

     

       78
       78
       +
       

     

       79
       79
       +
       1 In the beginning God created the heaven and the earth.

     

       80
       80
       +
       2 And the earth was without form, and void; and darkness was upon the face of the deep."

     

       81
       81
       +
       

     

       82
       82
       +
         let ref = bible_search.Reference(book: "GENESIS", chapter: 1, verse: 1)

     

       83
       83
       +
         let result = bible_search.bible_scan(reference: ref, bible: bible)

     

       84
       84
       +
       

     

       85
       85
       +
         should.be_true(

     

       86
       86
       +
           result.verse == Ok("In the beginning God created the heaven and the earth."),

     

       87
       87
       +
         )

     

       88
       88
       +
       }

     

       89
       89
       +
       

     

       90
       90
       +
       pub fn bible_scan_verse_not_found_test() {

     

       91
       91
       +
         let bible =

     

       92
       92
       +
           "THE BOOK OF GENESIS

     

       93
       93
       +
       

     

       94
       94
       +
       CHAPTER 1

     

       95
       95
       +
       

     

       96
       96
       +
       1 In the beginning God created the heaven and the earth."

     

       97
       97
       +
       

     

       98
       98
       +
         let ref = bible_search.Reference(book: "GENESIS", chapter: 1, verse: 99)

     

       99
       99
       +
         let result = bible_search.bible_scan(reference: ref, bible: bible)

     

       100
       100
       +
       

     

       101
       101
       +
         should.be_true(result.verse == Error("Verse not found"))

     

       102
       102
       +
       }

     

       103
       103
       +
       

     

       104
       104
       +
       pub fn bible_scan_book_not_found_test() {

     

       105
       105
       +
         let bible =

     

       106
       106
       +
           "THE BOOK OF GENESIS

     

       107
       107
       +
       

     

       108
       108
       +
       CHAPTER 1

     

       109
       109
       +
       

     

       110
       110
       +
       1 In the beginning God created the heaven and the earth."

     

       111
       111
       +
       

     

       112
       112
       +
         let ref = bible_search.Reference(book: "EXODUS", chapter: 1, verse: 1)

     

       113
       113
       +
         let result = bible_search.bible_scan(reference: ref, bible: bible)

     

       114
       114
       +
       

     

       115
       115
       +
         should.be_true(result.verse == Error("Verse not found"))

     

       116
       116
       +
       }

     

       117
       117
       +
       

     

       118
       118
       +
       pub fn bible_scan_chapter_not_found_test() {

     

       119
       119
       +
         let bible =

     

       120
       120
       +
           "THE BOOK OF GENESIS

     

       121
       121
       +
       

     

       122
       122
       +
       CHAPTER 1

     

       123
       123
       +
       

     

       124
       124
       +
       1 In the beginning God created the heaven and the earth."

     

       125
       125
       +
       

     

       126
       126
       +
         let ref = bible_search.Reference(book: "GENESIS", chapter: 99, verse: 1)

     

       127
       127
       +
         let result = bible_search.bible_scan(reference: ref, bible: bible)

     

       128
       128
       +
       

     

       129
       129
       +
         should.be_true(result.verse == Error("Verse not found"))

     

       130
       130
       +
       }

     

       131
       131
       +
       

     

       132
       132
       +
       pub fn bible_scan_multiple_verses_test() {

     

       133
       133
       +
         let bible =

     

       134
       134
       +
           "THE BOOK OF GENESIS

     

       135
       135
       +
       

     

       136
       136
       +
       CHAPTER 1

     

       137
       137
       +
       

     

       138
       138
       +
       1 In the beginning God created the heaven and the earth.

     

       139
       139
       +
       2 And the earth was without form, and void; and darkness was upon the face of the deep.

     

       140
       140
       +
       3 And God said, Let there be light: and there was light."

     

       141
       141
       +
       

     

       142
       142
       +
         let ref = bible_search.Reference(book: "GENESIS", chapter: 1, verse: 2)

     

       143
       143
       +
         let result = bible_search.bible_scan(reference: ref, bible: bible)

     

       144
       144
       +
       

     

       145
       145
       +
         should.be_true(

     

       146
       146
       +
           result.verse

     

       147
       147
       +
           == Ok(

     

       148
       148
       +
             "And the earth was without form, and void; and darkness was upon the face of the deep.",

     

       149
       149
       +
           ),

     

       150
       150
       +
         )

     

       59
       151
        
       }