search

PolMine / RcppCWB

'Rcpp' Bindings for the 'Corpus Workbench' (CWB)
Other
2 stars 3 forks source link

matrix_to_subcorpus() fails on GitHub CI (Windows, Ubuntu, but not on macOS) #56

Open ablaette opened 2 years ago

ablaette commented 2 years ago

This test fails on GitHub Actions (Windows/Ubuntu, not macOS):

oil_context <- cqp_query("REUTERS", subcorpus = "OIL", query = '[]{3}"oil" []{3}')
m <- subcorpus_get_ranges(oil_context)
reuters <- cl_find_corpus("REUTERS", registry = get_tmp_registry())
p <- matrix_to_subcorpus(subcorpus = "OIL2", corpus = reuters, region_matrix = m)
expect_true("OIL2" %in% cqp_list_subcorpora("REUTERS"))

x <- cqp_query("REUTERS:OIL2", query = '"crude";', subcorpus = "CRUDEOIL")
expect_true("CRUDEOIL" %in% cqp_list_subcorpora("REUTERS"))

expect_identical(
  cqp_dump_subcorpus("REUTERS", "CRUDEOIL"),
  subcorpus_get_ranges(x)
)

cqp_drop_subcorpus("REUTERS:OIL")
cqp_drop_subcorpus("REUTERS:OIL2")
cqp_drop_subcorpus("REUTERS:CRUDEOIL")

expect_false("OIL" %in% cqp_list_subcorpora("REUTERS"))
expect_false("OIL2" %in% cqp_list_subcorpora("REUTERS"))
expect_false("CRUDEOIL" %in% cqp_list_subcorpora("REUTERS"))

And this example fails on GitHub Action for Windows and Ubuntu. It is now in a dontrun section.

# First we generate a subcorpus from a query result
oil_context <- cqp_query("REUTERS", subcorpus = "OIL", query = '[]{3}"oil" []{3}')
m <- subcorpus_get_ranges(oil_context)
reuters <- cl_find_corpus("REUTERS", registry = get_tmp_registry())
p <- matrix_to_subcorpus(subcorpus = "OIL2", corpus = reuters, region_matrix = m)
cqp_list_subcorpora("REUTERS")

x <- cqp_query("REUTERS:OIL2", query = '"crude";', subcorpus = "CRUDEOIL")
subcorpus_get_ranges(x)

# clean up
cqp_drop_subcorpus("REUTERS:OIL")
cqp_drop_subcorpus("REUTERS:OIL2")
cqp_drop_subcorpus("REUTERS:CRUDEOIL")