inst/tinytest/test_ODataQuery.R

In ODataQuery: Querying on 'OData'

library(ODataQuery)

# Root with /
service <- ODataQuery$new("testurl.org/")
expect_equal(service$url, "testurl.org/")

# Root without /
service <- ODataQuery$new("testurl.org")
expect_equal(service$url, "testurl.org/")

# Resource
item_resource <- service$path("Items")
expect_equal(item_resource$url, "testurl.org/Items")

# Singleton
item_singleton <- service$path("Items")$get("it0001")
expect_equal(item_singleton$url, "testurl.org/Items('it0001')")

item_singleton <- service$path("Items")$get(ItemId = "it0001")
expect_equal(item_singleton$url, "testurl.org/Items(ItemId='it0001')")

# Queries
expect_equal(item_resource$select("First", "Second", "Third")$url,
             "testurl.org/Items?$select=First,Second,Third")

expect_equal(item_resource$skip(10)$top(5)$url,
             "testurl.org/Items?$skip=10&$top=5")

expect_equal(item_resource$expand("Prices")$url,
             "testurl.org/Items?$expand=Prices")

expect_equal(item_resource$filter("Quantity > 0", Value.gt = 100)$url,
             "testurl.org/Items?$filter=(Quantity%20%3E%200%20and%20Value%20gt%20100)")

expect_equal(item_resource$orderby("Price", "Quality")$url,
             "testurl.org/Items?$orderby=Price,Quality")