label_all_test = TestCase (do
    M_task_input all <- process_master_msg "INPUT" all_input
    let inpt = (head . inputs) all
    let bad =  process_master_msg "INPUT" bad_input :: Maybe Master_msg
    assertEqual "All input label" All (input_label inpt)
    assertEqual "Bad input label" Nothing bad)
label_all_test = TestCase (do
    M_task_input all <- process_master_msg "INPUT" all_input
    let inpt = (head . inputs) all
    let bad =  process_master_msg "INPUT" bad_input :: Maybe Master_msg
    assertEqual "All input label" All (input_label inpt)
    assertEqual "Bad input label" Nothing bad)
label_all_test = TestCase (do
    M_task_input all <- process_master_msg "INPUT" all_input
    let inpt = (head . inputs) all
    let bad =  process_master_msg "INPUT" bad_input :: Maybe Master_msg
    assertEqual "All input label" All (input_label inpt)
    assertEqual "Bad input label" Nothing bad)