(require 'behave)

(context "Testing if string is camelized"

  (tag rails rails-lib camelized-p)

  (specify "should be nil if there are no capital characters"

    (expect (camelized-p "horse") equal nil))

  (specify "should be 0 for a word with first character being a capital"

    (expect (camelized-p "Horse") equal 0))

  (specify "should be nil if the first character is not a capital"

    (expect (camelized-p "dragonFly") equal nil))

  (specify "should be 0 if there are multiple capitals"

    (expect (camelized-p "DragonFly") equal 0))

  (specify "should be 0 if it has numbers"

    (expect (camelized-p "DragonFly69") equal 0))

  (specify "should be nil if all its characters are capital"

    (expect (camelized-p "DONKEY") equal nil)))

(context "Testing if string is underscored"

  (tag rails rails-lib underscored-p)

  (specify "should be nil if there is a capital character"

    (expect (underscored-p "horSe") equal nil))

  (specify "should be 0 if all characters are lowercase"

    (expect (underscored-p "horse") equal 0))

  (specify "should be 0 if some characters are numbers"

    (expect (underscored-p "horse12") equal 0))

  (specify "should be 0 if some characters are underscores"

    (expect (underscored-p "dragon_fly") equal 0))

  (specify "should be nil if the first character is not a letter"

    (expect (underscored-p "5_gold_rings") equal nil))

)

(context "Decamelizing"

  (tag rails rails-lib decamelize)

  (specify "should return a string of all lower case characters unchanged"

    (expect (decamelize "horse") equal "horse"))

  (specify "should replace an initial capital with a lower case character"

    (expect (decamelize "Horse") equal "horse"))

  (specify "should insert underscores before capital letters"

    (expect (decamelize "AntEaterTongue") equal "ant_eater_tongue"))

  (specify "should insert one underscore after last character of serie of capitals"

    (expect (decamelize "SMSMessage") equal "sms_message"))

  (specify "should insert an underscore between a digit and a capital"

    (expect (decamelize "Dalmatien101Movie") equal "dalmatien101_movie"))

)