import Data.Time.Format ( parseTime )
import Data.Time.LocalTime ( TimeZone, utcToZonedTime )
import System.Locale ( defaultTimeLocale, rfc822DateFormat )
import Data.Time.Format ( parseTime )
import Data.Time.LocalTime ( TimeZone, utcToZonedTime )
import System.Locale ( defaultTimeLocale, rfc822DateFormat )
-import Test.Framework ( Test, testGroup )
-import Test.Framework.Providers.HUnit ( testCase )
-import Test.HUnit ( Assertion, assertEqual )
+import Test.Tasty ( TestTree, testGroup )
+import Test.Tasty.HUnit ( (@?=), testCase )
import Text.Regex ( matchRegex, mkRegex )
import Html ( replace_entities )
import Text.Regex ( matchRegex, mkRegex )
import Html ( replace_entities )
-- | Given a list of statuses, returns the greatest status_id
-- belonging to one of the statuses in the list.
-- | Given a list of statuses, returns the greatest status_id
-- belonging to one of the statuses in the list.
parse_usernames_from_status :: Status -> [String]
parse_usernames_from_status status =
mapMaybe parse_username status_words
where
status_words = splitWs (text status)
parse_usernames_from_status :: Status -> [String]
parse_usernames_from_status status =
mapMaybe parse_username status_words
where
status_words = splitWs (text status)
make_user_timeline_urls :: Status -> [String]
make_user_timeline_urls status =
map screen_name_to_timeline_url usernames
make_user_timeline_urls :: Status -> [String]
make_user_timeline_urls status =
map screen_name_to_timeline_url usernames
dummy_user = User { screen_name = "nobody" }
dummy_text = "Hypothesis: @donsbot and @bonus500 are two " ++
"personalities belonging to the same person."
dummy_user = User { screen_name = "nobody" }
dummy_text = "Hypothesis: @donsbot and @bonus500 are two " ++
"personalities belonging to the same person."
- actual_usernames = parse_usernames_from_status dummy_status
- expected_usernames = ["donsbot", "bonus500"]
+ actual = parse_usernames_from_status dummy_status
+ expected = ["donsbot", "bonus500"]