diff --git a/R/SDMXServiceProvider-methods.R b/R/SDMXServiceProvider-methods.R
index 5cf2254..80f2519 100644
--- a/R/SDMXServiceProvider-methods.R
+++ b/R/SDMXServiceProvider-methods.R
@@ -42,6 +42,12 @@ setSDMXServiceProviders <- function(){
       SDMXServiceProvider(
         "ILO", "International Labour Organization of the United Nations",
         SDMXRESTRequestBuilder("http://www.ilo.org/ilostat/sdmx/ws/rest", FALSE)                  
+      ),
+      
+      #UIS (UNESCO)
+      SDMXServiceProvider(
+        "UIS", "UNESCO Institute of Statistics",
+        SDMXRESTRequestBuilder("http://data.uis.unesco.org/RestSDMX/sdmx.ashx", TRUE)
       )
       
   )
diff --git a/tests/testthat/test_Main_Helpers.R b/tests/testthat/test_Main_Helpers.R
index b6aefc8..4a471b5 100644
--- a/tests/testthat/test_Main_Helpers.R
+++ b/tests/testthat/test_Main_Helpers.R
@@ -60,3 +60,13 @@ test_that("Dataset - UN-ILO",{
   expect_is(sdmx, "SDMXGenericData")
 })
 
+#UIS (UNESCO)
+test_that("Dataset - UIS (UNESCO)",{
+  testthat::skip_on_travis()
+  testthat::skip_on_cran()
+  sdmx <- readSDMX(agencyId = "UIS", operation = "GetData",
+                   key = "EDULIT_DS", filter = list("OFST_1_CP", NULL), filter.native = TRUE,
+                   start = "2000", end = "2015")
+  expect_is(sdmx, "SDMXGenericData")
+})
+