mkd <- paste(names(litedown:::pants), collapse = ' ') stopifnot(litedown:::smartypants(mkd) == '½ ⅓ ⅔ ¼ ¾ ⅕ ⅖ ⅗ ⅘ ⅙ ⅚ ⅛ ⅜ ⅝ ⅞ ⅐ ⅑ ⅒ © ® ™')