tests/testthat/test-qti_task.R

In rqti: Create Tests According to QTI 2.1 Standard

# SingleChoice
test_that("Testing xml file of SingleChoice task", {
    path <- test_path("file/xml/SingleChoice.xml")
    expected <- readLines(path)
    sc <- new("SingleChoice",
              prompt = "What is the percentage of 3/20?",
              title = "SingleChoice",
              choices = c("15%", "20%", "30%"),
              choice_identifiers = "1",
              identifier = "new")
    suppressMessages(createQtiTask(sc))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})

test_that("Testing Single Choice task in case of the entity contains
          the math signs - less, more)", {
              path <- test_path("file/xml/SingleChoice_sign_more_less.xml")
              expected <- readLines(path)
              sc <- new("SingleChoice",
                        prompt = "Choose the sign of more(>) & ' from list: ",
                        title = "SingleChoice",
                        choices = c(">", "<", "<="),
                        choice_identifiers = "1",
                        identifier = "new")
              suppressMessages(createQtiTask(sc))
              sut <- readLines("new.xml")

              expect_equal(sut, expected)
              file.remove("new.xml")
})

# MultipleChoice
test_that("Testing xml file of MultipeChoice task", {
    path <- test_path("file/xml/MultipleChoice.xml")
    expected <- readLines(path)
    mc <- new("MultipleChoice",
              identifier = "mpc", prompt = "What does 3/4 + 1/4 = ?",
              title = "MultipleChoice",
              choices = c("1", "4/8", "8/4", "4/4"),
              choice_identifiers = c("a1", "a2", "a3", "a4"),
              points = c(1, 0, 0, 1)
    )
    suppressMessages(createQtiTask(mc))
    sut <- readLines("mpc.xml")

    expect_equal(sut, expected)
    file.remove("mpc.xml")
})
test_that("Testing MultipleChoice Choice task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/MultipleChoice_sign_more_less.xml")
    expected <- readLines(path)
    mc <- new("MultipleChoice",
              identifier = "mpc", prompt = "Choose the signs of more(>) and less(<) & ' from list:",
              title = "MultipleChoice",
              choices = c(">", "=", ">=", "<"),
              choice_identifiers = c("a1", "a2", "a3", "a4"),
              points = c(1, 0, 0, 1)
    )
    suppressMessages(createQtiTask(mc))
    sut <- readLines("mpc.xml")

    expect_equal(sut, expected)
    file.remove("mpc.xml")
})
# Order
test_that("Testing xml file of Order task", {
    path <- test_path("file/xml/Order_output_createQtiTask.xml")
    expected <- readLines(path)
    order <- new("Ordering",
                 identifier = "ord",
                 title = "Order",
                 prompt = "Choose the correct order",
                 choices = c("Data collection",
                             "Data cleansing", "Data marking",
                             "Verification and visualization"),
                 choices_identifiers = c("ChoiceA", "ChoiceB",
                                         "ChoiceC", "ChoiceD"),
                 points = 1,
                 points_per_answer = FALSE)
    suppressMessages(createQtiTask(order))
    sut <- readLines("ord.xml")

    expect_equal(sut, expected)
    file.remove("ord.xml")
})

test_that("Testing Order task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/Order_sign_more_less.xml")
    expected <- readLines(path)
    order <- new("Ordering",
                 identifier = "ord",
                 title = "Order",
                 prompt = "Choose the correct order",
                 choices = c("1. > & '",
                             "2. <",
                             "3. >0",
                             "4. <0"),
                 choices_identifiers = c("ChoiceA", "ChoiceB",
                                         "ChoiceC", "ChoiceD"),
                 points = 1,
                 points_per_answer = FALSE)
    suppressMessages(createQtiTask(order))
    sut <- readLines("ord.xml")

    expect_equal(sut, expected)
    file.remove("ord.xml")
})
# Essay
test_that("Testing xml file of Essay task", {
    path <- test_path("file/xml/Essay.xml")
    expected <- readLines(path)

    essay <- new("Essay", prompt = "Test task",
                 title = "Essay",
                 identifier = "new")
    suppressMessages(createQtiTask(essay))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
# OneInColTable
test_that("Testing xml file of OneInColTable task", {
    path <- test_path("file/xml/OneInColTable.xml")
    expected <- readLines(path)
    oneInColTable <- new("OneInColTable",
                         content = list("<p>\"One in col\" table task</p>",
                                        "<i>table description</i>"),
                 identifier = "new",
                 title = "OneInColTable",
                 prompt = "Choose the correct order in the multiplication table",
                 rows = c("4*7 =", "3*9 =", "5*5 =", "2*3 =", "12*3 ="),
                 rows_identifiers = c("a", "b", "c", "d", "e"),
                 cols = c("27", "36", "25", "6", "72/2"),
                 cols_identifiers = c("k", "l", "m", "n", "p"),
                 answers_identifiers =c("b k", "c m", "d n", "e l", "e p"),
                 points = 5
    )
    suppressMessages(createQtiTask(oneInColTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
test_that("Testing OneInColTable task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/OneInColTable_sign_more_less.xml")
    expected <- readLines(path)
    oneInColTable <- new("OneInColTable",
                         content = list("<p>\"One in col\" table task</p>",
                                        "<i>table description</i>"),
                         identifier = "new",
                         title = "OneInColTable",
                         prompt = "Choose the correct order in the multiplication table",
                         rows = c("less", "more"),
                         rows_identifiers = c("a", "b"),
                         cols = c("<", ">", "> & '"),
                         cols_identifiers = c("k", "l", "m"),
                         answers_identifiers =c("a k", "b l", "b m"),
                         points = 5
    )
    suppressMessages(createQtiTask(oneInColTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})

# OneInRowTable
test_that("Testing xml file of OneInRowTable task", {
    path <- test_path("file/xml/OneInRowTable.xml")
    expected <- readLines(path)
    OneInRowTable <- new("OneInRowTable",
                         content = list("<p>\"One in row\" table task</p>",
                                                   "<i>table description</i>"),
             identifier = "new",
             title = "OneInRowTable",
             prompt = "Choose the correct order in the multiplication table",
             rows = c("4*9 =", "3*9 =", "5*5 =", "2*3 =", "12*3 ="),
             rows_identifiers = c("a", "b", "c", "d", "e"),
             cols = c("27", "36", "25", "6"),
             cols_identifiers = c("k", "l", "m", "n"),
             answers_identifiers = c("a l", "b k", "c m", "d n", "e l"),
             points = 5)
    suppressMessages(createQtiTask(OneInRowTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
test_that("Testing OneInRowTable task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/OneInRowTable_sign_more_less.xml")
    expected <- readLines(path)
    OneInRowTable <- new("OneInRowTable",
                         content = list("<p>\"One in row\" table task</p>",
                                        "<i>table description</i>"),
                         identifier = "new",
                         title = "OneInColTable",
                         prompt = "Choose the correct order in the multiplication table",
                         rows = c("5 & ' ", "6", "-7"),
                         rows_identifiers = c("a", "b", "c"),
                         cols = c(">4", "<-5"),
                         cols_identifiers = c("k", "l"),
                         answers_identifiers =c("a k", "b k", "c l"),
                         points = 5)
    suppressMessages(createQtiTask(OneInRowTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})

# MultipleChoiceTable
test_that("Testing xml file of MultipleChoiceTable task", {
    path <- test_path("file/xml/MultipleChoiceTable.xml")
    expected <- readLines(path)

    MultipleChoiceTable <- new("MultipleChoiceTable",
                content = list("<p>\"One in col\" table task</p>",
                              "<i>table description</i>"),
                identifier = "new",
                title = "MultipleChoiceTable",
                prompt = "Choose the correct order in the multiplication table",
                rows = c("4*7 =", "3*9 =", "5*5 =", "2*3 =", "12*3 ="),
                rows_identifiers = c("a", "b", "c", "d", "e"),
                cols = c("27", "36", "25", "6", "72/2"),
                cols_identifiers = c("k", "l", "m", "n", "p"),
                answers_identifiers =c("b k", "c m", "d n", "e l", "e p"),
                points = 5
    )
    suppressMessages(createQtiTask(MultipleChoiceTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
test_that("Testing MultipleChoiceTable task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/MultipleChoiceTable_sign_more_less.xml")
    expected <- readLines(path)

    MultipleChoiceTable <- new("MultipleChoiceTable",
                               content = list("<p>\"One in col\" table task</p>",
                                              "<i>table description</i>"),
                               identifier = "new",
                               title = "MultipleChoiceTable",
                               prompt = "Choose the correct order in the multiplication table",
                               rows = c(">1", "<0 & '", "<-7"),
                               rows_identifiers = c("a", "b", "c"),
                               cols = c("-1", "-8", "2"),
                               cols_identifiers = c("k", "l", "m"),
                               answers_identifiers =c("a m", "b k", "b l", "c l"),
                               points = 5
    )
    suppressMessages(createQtiTask(MultipleChoiceTable))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
# DirectedPair
test_that("Testing xml file of DirectedPair task", {
    path <- test_path("file/xml/DirectedPair.xml")
    expected <- readLines(path)
    DirectedPair <- new("DirectedPair",
                    content = list("<p>\"Directed pairs\" task</p>"),
                    identifier = "dpr",
                    title = "Directed pairs",
                    rows = c("12*4 =", "100/50 =", "25*2 ="),
                    rows_identifiers = c("a", "b", "c"),
                    cols = c("48", "2", "50"),
                    cols_identifiers = c("k", "l", "m"),
                    answers_identifiers = c("a k", "b l", 'c m'),
                    points = 5
)
    suppressMessages(createQtiTask(DirectedPair))
    sut <- readLines("dpr.xml")

    expect_equal(sut, expected)
    file.remove("dpr.xml")
})
test_that("Testing DirectedPair task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/DirectedPair_sign_more_less.xml")
    expected <- readLines(path)
    DirectedPair <- new("DirectedPair",
                        content = list("<p>\"Directed pairs\" task</p>"),
                        identifier = "dpr",
                        title = "Directed pairs",
                        rows = c("<50", "=2", ">49"),
                        rows_identifiers = c("a", "b", "c"),
                        cols = c("& ' 48 ", "2", "50"),
                        cols_identifiers = c("k", "l", "m"),
                        answers_identifiers = c("a k", "b l", "c m"),
                        points = 5
    )
    suppressMessages(createQtiTask(DirectedPair))
    sut <- readLines("dpr.xml")

    expect_equal(sut, expected)
    file.remove("dpr.xml")
})

# TextGapOpal
test_that("Testing xml file of TextGapOpal task", {
    path <- test_path("file/xml/TextGapOpal.xml")
    expected <- readLines(path)
TextGapOpal <- new("Entry",
                   identifier = "tgo",
                   points = 3,
                   title = "TextGapOpal",
                   content = list('<p>The speed of light is',
                                  new("TextGapOpal",
                                      response_identifier = "RESPONSE_1",
                                      points = 3,
                                      solution = c("more", "MORE", "More"),
                                      tolerance = 2),
                                  'than the speed of sound</p>'))

    suppressMessages(createQtiTask(TextGapOpal))
    sut <- readLines("tgo.xml")

    expect_equal(sut, expected)
    file.remove("tgo.xml")
})

# NumericGap
test_that("Testing xml file of NumiricGap task", {
    path <- test_path("file/xml/NumericGap.xml")
    expected <- readLines(path)
NumericGap <- new("Entry",
                  identifier = "new",
                  points = 1,
                  title = "NumericGap",
                  content = list('The speed of light is equal',
                                 new("NumericGap",
                                     response_identifier = "RESPONSE_1",
                                     points = 1,
                                     solution = 300,
                                     tolerance = 2),
                                 'm/s')
)
    suppressMessages(createQtiTask(NumericGap))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})

# InlineChoice
test_that("Testing xml file of InlineChoice task", {
    path <- test_path("file/xml/InlineChoice.xml")
    expected <- readLines(path)
InlineChoice <- new("Entry",
                    identifier = "new",
                    points = 1,
                    title = "InlineChoice",
                    content = list('The speed of light is equal',
                                   new("InlineChoice",
                                       choices = c("400","300","500"),
                                       response_identifier = "RESPONSE_1",
                                       solution_index = 2,
                                       points = 1),
                                   'm/s')
)
    suppressMessages(createQtiTask(InlineChoice))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})
test_that("Testing InlineChoice task in case of the entity contains
          the math signs - less, more", {
    path <- test_path("file/xml/InlineChoice_sign_more_less.xml")
    expected <- readLines(path)
    InlineChoice <- new("Entry",
                        identifier = "new",
                        points = 1,
                        title = "InlineChoice",
                        content = list('The speed of light is equal > or equal',
                                       new("InlineChoice",
                                           choices = c("400","300","500"),
                                           response_identifier = "RESPONSE_1",
                                           solution_index = 2,
                                           points = 1),
                                       'm/s')
    )
    suppressMessages(createQtiTask(InlineChoice))
    sut <- readLines("new.xml")

    expect_equal(sut, expected)
    file.remove("new.xml")
})

test_that("Testing of create_manifest_task() function", {
    sc <- new("SingleChoice",
              identifier = "SingleChoice")
    sc_metadata = qtiMetadata(contributor = qtiContributor(""),
                               rights = character(0), version = "0.0.9")
    sc@metadata <- sc_metadata
    sut <- toString(create_manifest_task(sc))

expected <- '<manifest xmlns=\"http://www.imsglobal.org/xsd/imscp_v1p1\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://www.imsglobal.org/xsd/imscp_v1p1 http://www.imsglobal.org/xsd/qti/qtiv2p1/qtiv2p1_imscpv1p2_v1p0.xsd http://www.imsglobal.org/xsd/imsqti_v2p1 http://www.imsglobal.org/xsd/qti/qtiv2p1/imsqti_v2p1p1.xsd http://www.imsglobal.org/xsd/imsqti_metadata_v2p1 http://www.imsglobal.org/xsd/qti/qtiv2p1/imsqti_metadata_v2p1p1.xsd http://ltsc.ieee.org/xsd/LOM http://www.imsglobal.org/xsd/imsmd_loose_v1p3p2.xsd http://www.w3.org/1998/Math/MathML http://www.w3.org/Math/XMLSchema/mathml2/mathml2.xsd\" identifier=\"SingleChoice_manifest\">
  <metadata>
    <lom xmlns=\"http://ltsc.ieee.org/xsd/LOM\">
      <lifeCycle>
        <version>
          <string>0.0.9</string>
        </version>
        <contribute>
          <role>
            <source>LOMv1.0</source>
            <value>author</value>
          </role>
          <entity>BEGIN:VCARD\r
FN:\r
END:VCARD\r
</entity>
          <date>
            <dateTime></dateTime>
          </date>
        </contribute>
      </lifeCycle>
      <general>
        <identifier>
          <entry>SingleChoice</entry>
        </identifier>
        <title>
          <string>SingleChoice</string>
        </title>
        <description>
          <string>
</string>
        </description>
      </general>
      <technical>
        <format>IMS QTI 2.1</format>
      </technical>
      <rights>
        <description></description>
      </rights>
    </lom>
  </metadata>
  <organisations></organisations>
  <resources>
    <resource identifier=\"SingleChoice\" type=\"imsqti_item_xmlv2p1\" href=\"SingleChoice.xml\">
      <file href=\"SingleChoice.xml\"></file>
    </resource>
  </resources>
</manifest>'

expect_equal(sut, expected)
})
test_that("Testing of create_task_zip() function", {
    sc <- new("SingleChoice",
              identifier = "SingleChoice")
    sut1 <-  suppressMessages(capture.output(create_task_zip(sc)))
    sut2 <-  suppressMessages(capture.output(create_task_zip(sc, path="main")))

expect_true(any(grepl("./SingleChoice.zip", sut1)))
expect_true(any(grepl("main/SingleChoice.zip", sut2, fixed = TRUE)))
file.remove("SingleChoice.zip")
unlink("main", recursive = TRUE)
})