Commit 47acafd3979ab986c53c6ac9b7a14f1fe4ad6519
- Diff rendering mode:
- inline
- side by side
t/03-util.t
(11 / 1)
|   | |||
| 17 | 17 | } | |
| 18 | 18 | ||
| 19 | 19 | sub run_tests () { | |
| 20 | plan(46); | ||
| 20 | plan(49); | ||
| 21 | 21 | ||
| 22 | 22 | test_hash_exists(); | |
| 23 | 23 | test_hash_keys(); | |
| 24 | 24 | test_hash_values(); | |
| 25 | 25 | test_hash_kv(); | |
| 26 | 26 | ||
| 27 | test_all_matches(); | ||
| 28 | |||
| 27 | 29 | test_set_from_array(); | |
| 28 | 30 | ||
| 29 | 31 | test_subst(); | |
| … | … | ||
| 34 | 34 | test_is_dir(); | |
| 35 | 35 | ||
| 36 | 36 | test_qx(); | |
| 37 | } | ||
| 38 | |||
| 39 | sub test_all_matches() { | ||
| 40 | my @matches; | ||
| 41 | @matches := all_matches(/ab?d?x?c/,"abc y adcef x axcfoo twiddle"); | ||
| 42 | is(@matches[0],'abc','all_matches found abc'); | ||
| 43 | is(@matches[1],'adc','all_matches found adc'); | ||
| 44 | is(@matches[2],'axc','all_matches found axc'); | ||
| 37 | 45 | } | |
| 38 | 46 | ||
| 39 | 47 | sub test_hash_exists() { |

