| File: | t/text-helpers.t |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | #!/usr/bin/env perl | ||||||
| 2 | |||||||
| 3 | 1 1 1 | 102 9 11 | use strict; | ||||
| 4 | 1 1 1 | 10 2 11 | use warnings; | ||||
| 5 | 1 1 1 | 106 6 20 | use Test::More tests => 9; | ||||
| 6 | |||||||
| 7 | 1 1 1 | 86 5 23 | use Railsish::TextHelpers; | ||||
| 8 | |||||||
| 9 | 1 | 9 | is( pluralize("photo"), "photos"); | ||||
| 10 | 1 | 9 | is( pluralize("photos"), "photos"); | ||||
| 11 | 1 | 9 | is( singularize("photo"), "photo"); | ||||
| 12 | 1 | 9 | is( singularize("photos"), "photo"); | ||||
| 13 | |||||||
| 14 | 1 | 9 | is( camelcase("photo_shop"), "PhotoShop" ); | ||||
| 15 | 1 | 10 | is( camelize("photo_shop"), "PhotoShop" ); | ||||
| 16 | 1 | 10 | is( dasherize("photo_shop"), "photo-shop" ); | ||||
| 17 | |||||||
| 18 | 1 | 8 | is( forien_key("photo"), "photo_id" ); | ||||
| 19 | 1 | 9 | is( underscore("PhotoShop"), "photo_shop"); | ||||
| 20 | |||||||