Skip to content

Instantly share code, notes, and snippets.

@colomon
Created July 17, 2013 17:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save colomon/6022597 to your computer and use it in GitHub Desktop.
Save colomon/6022597 to your computer and use it in GitHub Desktop.
Wynne:rakudo-jvm colomon$ make t/spec/S32-hash/delete-adverb.t
t/spec/S32-hash/delete-adverb.rakudo.jvm ..
ok 1 - basic sanity
ok 2 - Test for delete single key
ok 3 - b hould be deleted now
ok 4 - b should be deleted now by count
ok 5 - Test non-deletion with ! single key
ok 6 - c should not have been deleted
ok 7 - Test non-deletion with (0) single key
ok 8 - c should not have been deleted
ok 9 - Test non-deletion with (False) single key
ok 10 - c should not have been deleted
ok 11 - Test non-deletion with ($dont) single key
ok 12 - c should not have been deleted
ok 13 - Test deletion with (1) single key
ok 14 - c should be deleted now
ok 15 - c should be deleted now by count
ok 16 - return a single pair out
ok 17 - d should not have been deleted
ok 18 - slice a single pair out
ok 19 - d should be deleted now
ok 20 - slice unexisting single pair out
ok 21 - slice unexisting single pair out
ok 22 - return a single key/value out
ok 23 - e should not have been deleted
ok 24 - slice a single key/value out
ok 25 - e should be deleted now
ok 26 - slice unexisting single key/value
ok 27 - slice unexisting single key/value
ok 28 - return a single key out
ok 29 - f should not have been deleted
ok 30 - slice a single key out
ok 31 - f should be deleted now
ok 32 - slice unexisting single key
ok 33 - slice unexisting single key
ok 34 - return a single value out
ok 35 - g should not have been deleted
ok 36 - slice a single value out
ok 37 - g should be deleted now
ok 38 - slice unexisting single key
use of uninitialized value of type Any in string context
use of uninitialized value of type Any in string context
ok 39 - slice unexisting single key
ok 40 - d:exists single existing key
ok 41 - b should be deleted now
ok 42 - d:exists one non-existing key
ok 43 - d:!exists one non-existing key
ok 44 - d:exists:kv 1 ekey
ok 45 - d should be deleted now
ok 46 - 1 nekey d:exists:!kv
ok 47 - 1 nekey d:!exists:!kv
ok 48 - 1 nekey d:exists:kv
ok 49 - 1 nekey d:!exists:kv
ok 50 - d:exists:p 1 ekey
ok 51 - e should be deleted now
ok 52 - 1 nekey exists:!p
ok 53 - 1 nekey !exists:!p
ok 54 - 1 nekey exists:p
ok 55 - 1 nekey !exists:p
ok 56 - Test for delete multiple keys
ok 57 - c d e should be deleted now
ok 58 - c d e should be deleted now by count
ok 59 - non-deletion with ! mult
ok 60 - f g should not have been deleted
ok 61 - non-deletion with (0) mult
ok 62 - f g should not have been deleted
ok 63 - non-deletion with (False) mult
ok 64 - f g should not have been deleted
ok 65 - non-deletion with ($dont) multi
ok 66 - f g should not have been deleted
ok 67 - deletion with (1) multi
ok 68 - f g should be deleted now
ok 69 - f g should be deleted now by count
ok 70 - return pairs
ok 71 - h i should not have been deleted
ok 72 - slice pairs out
ok 73 - h i should be deleted now by count
ok 74 - !d:exists ekeys
ok 75 - d:exists ekeys
ok 76 - b should be deleted now
ok 77 - c should be deleted now
ok 78 - d:exists nekeys
ok 79 - d:!exists nekeys
ok 80 - d:exists nekeys
ok 81 - d:!exists nekeys
ok 82 - !d:!exists:kv ekeys
ok 83 - d:!exists:kv ekeys
ok 84 - e should be deleted now
ok 85 - f should be deleted now
ok 86 - d:exists:!kv nekeys
ok 87 - d:!exists:!kv nekeys
ok 88 - d:exists:kv nekey/ekey
ok 89 - d:!exists:kv ekey/nekey
ok 90 - !d:!exists:p ekeys
ok 91 - d:!exists:p ekeys
ok 92 - m should be deleted now
ok 93 - n should be deleted now
ok 94 - d:exists:!p nekeys
ok 95 - d:!exists:!p nekeys
ok 96 - d:exists:p nekey/ekey
ok 97 - d:!exists:p ekey/nekey
not ok 98 - Test deletion with whatever
# got: '6 7 4 5 2 3 1 14 15 12 13 10 11 8 9 23 22 21 20 19 18 17 16 26 25 24'
# expected: '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'
ok 99 - * should be deleted now
not ok 100 - Test non-deletion with ! *
# got: $(6, 7, 4, 5, 2, 3, 1, 14, 15, 12, 13, 10, 11, 8, 9, 23, 22, 21, 20, 19, 18, 17, 16, 26, 25, 24)
# expected: $(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)
not ok 101 - Test non-deletion with (0) *
# got: $(6, 7, 4, 5, 2, 3, 1, 14, 15, 12, 13, 10, 11, 8, 9, 23, 22, 21, 20, 19, 18, 17, 16, 26, 25, 24)
# expected: $(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)
not ok 102 - Test non-deletion with (False) *
# got: $(6, 7, 4, 5, 2, 3, 1, 14, 15, 12, 13, 10, 11, 8, 9, 23, 22, 21, 20, 19, 18, 17, 16, 26, 25, 24)
# expected: $(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)
not ok 103 - Test non-deletion with ($dont) *
# got: $(6, 7, 4, 5, 2, 3, 1, 14, 15, 12, 13, 10, 11, 8, 9, 23, 22, 21, 20, 19, 18, 17, 16, 26, 25, 24)
# expected: $(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)
ok 104 - * should not be deleted now
not ok 105 - Test deletion with (1) *
# got: $(6, 7, 4, 5, 2, 3, 1, 14, 15, 12, 13, 10, 11, 8, 9, 23, 22, 21, 20, 19, 18, 17, 16, 26, 25, 24)
# expected: $(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)
ok 106 - * should be deleted now by count
ok 107 - return all pairs
ok 108 - * should not be deleted
ok 109 - slice out all pairs
ok 110 - * should be deleted now
ok 111 - !d:exists whatever
ok 112 - * should not be deleted
ok 113 - d:!exists whatever
ok 114 - * should be deleted now
ok 115 - :!d:exists:kv whatever
ok 116 - * should not be deleted
ok 117 - d:!exists:kv whatever
ok 118 - * should be deleted now
ok 119 - :!d:exists:!kv whatever
ok 120 - * should not be deleted
ok 121 - d:!exists:!kv whatever
ok 122 - * should be deleted now
ok 123 - :!d:exists:p whatever
ok 124 - * should not be deleted
ok 125 - d:!exists:p whatever
ok 126 - * should be deleted now
ok 127 - :!d:exists:!p whatever
ok 128 - * should not be deleted
ok 129 - d:!exists:!p whatever
ok 130 - * should be deleted now
ok 131 - do we have a valid array
ok 132 - Test for delete single element
use of uninitialized value of type Any in string context
not ok 133 - 3 should be deleted now# TODO not being destructively read yet
# got: '4'
use of uninitialized value of type Any in string context
# expected: ''
ok 134 - array still has same length
ok 135 - Test non-deletion with ! single elem
ok 136 - 9 should not have been deleted
ok 137 - Test non-deletion with (0) single elem
ok 138 - 9 should not have been deleted
ok 139 - Test non-deletion with (False) single elem
ok 140 - 9 should not have been deleted
ok 141 - Test non-deletion with ($dont) single elem
ok 142 - 9 should not have been deleted
ok 143 - Test deletion with (1) single elem
use of uninitialized value of type Any in string context
not ok 144 - 9 should be deleted now# TODO not being destructively read yet
# got: '10'
use of uninitialized value of type Any in string context
# expected: ''
not ok 145 - array should be shortened now# TODO not being destructively read yet
# got: '10'
# expected: '9'
ok 146 - Test for delete multiple elements
not ok 147 - 1 3 should be deleted now# TODO not being destructively read yet
# got: $(2, 4)
# expected: (Any, Any).list.item
ok 148 - 1 3 should be deleted now
ok 149 - Test non-deletion with ! N
ok 150 - 2 4 9 should not have been deleted
ok 151 - Test non-deletion with (0) N
ok 152 - 2 4 9 should not have been deleted
ok 153 - Test non-deletion with (False) N
ok 154 - 2 4 9 should not have been deleted
ok 155 - Test non-deletion with ($dont) N
ok 156 - 2 4 9 should not have been deleted
ok 157 - Test deletion with (1) N
not ok 158 - 2 4 9 should be deleted now# TODO not being destructively read yet
# got: $(3, 5, 10)
# expected: (Any, Any, Any).list.item
not ok 159 - array should be shortened now# TODO not being destructively read yet
# got: '10'
# expected: '9'
ok 160 - Test deletion with whatever
not ok 161 - * should be deleted now# TODO not being destructively read yet
# got: '10'
# expected: '0'
ok 162 - Test non-deletion with ! *
ok 163 - Test non-deletion with (0) *
ok 164 - Test non-deletion with (False) *
ok 165 - Test non-deletion with ($dont) *
ok 166 - * should not be deleted now
ok 167 - Test deletion with (1) whatever
not ok 168 - * should be deleted now# TODO not being destructively read yet
# got: '10'
# expected: '0'
1..168
# Looks like you failed 6 tests of 168
# FUDGED!
Failed 6/168 subtests
Test Summary Report
-------------------
t/spec/S32-hash/delete-adverb.rakudo.jvm (Wstat: 0 Tests: 168 Failed: 6)
Failed tests: 98, 100-103, 105
Files=1, Tests=168, 11 wallclock secs ( 0.07 usr 0.02 sys + 0.03 cusr 0.02 csys = 0.14 CPU)
Result: FAIL
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment