Skip to content
Snippets Groups Projects
Commit 531db63a authored by Julien Lopez's avatar Julien Lopez
Browse files

Add tests between databases

parent ba58ab63
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 397 additions and 0 deletions
com.oracle.truffle.r.engine/hive.config 0 → 100644
+ 5
− 0
View file @ 531db63a
host = localhost
sid = default
port = 10000
user = julien
passwd = Pa$$w0rd
com.oracle.truffle.r.test/hive.config 0 → 100644
+ 5
− 0
View file @ 531db63a
host = localhost
sid = default
port = 10000
user = julien
passwd = Pa$$w0rd
com.oracle.truffle.r.test/tests/HBASE-HBASE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "HBase", "hbase-site.xml", "default")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "HBase", "hbase-site.xml", "default")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HBASE-HBASE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ADAMS
3 MILLER
4 ALLEN
5 WARD
6 JONES
7 SCOTT
name
1 SMITH
2 ADAMS
3 FORD
4 MILLER
5 ALLEN
6 WARD
7 JONES
8 SCOTT
com.oracle.truffle.r.test/tests/HBASE-HIVE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "Hive", "hive.config", "main")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "HBase", "hbase-site.xml", "default")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HBASE-HIVE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ADAMS
3 MILLER
4 ALLEN
5 WARD
6 JONES
7 SCOTT
name
1 SMITH
2 ADAMS
3 FORD
4 MILLER
5 ALLEN
6 WARD
7 JONES
8 SCOTT
com.oracle.truffle.r.test/tests/HBASE-PGSQL.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "PostgreSQL", "postgre.config", "public")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "HBase", "hbase-site.xml", "default")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HBASE-PGSQL.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ADAMS
3 MILLER
4 ALLEN
5 WARD
6 JONES
7 SCOTT
name
1 SMITH
2 ADAMS
3 FORD
4 MILLER
5 ALLEN
6 WARD
7 JONES
8 SCOTT
com.oracle.truffle.r.test/tests/HIVE-HBASE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "HBase", "hbase-site.xml", "default")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "Hive", "hive.config", "main")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HIVE-HBASE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 MILLER
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 FORD
8 MILLER
com.oracle.truffle.r.test/tests/HIVE-HIVE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "Hive", "hive.config", "main")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "Hive", "hive.config", "main")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HIVE-HIVE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ADAMS
3 MILLER
4 ALLEN
5 WARD
6 JONES
7 SCOTT
name
1 SMITH
2 ADAMS
3 FORD
4 MILLER
5 ALLEN
6 WARD
7 JONES
8 SCOTT
com.oracle.truffle.r.test/tests/HIVE-PGSQL.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "PostgreSQL", "postgre.config", "public")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "Hive", "hive.config", "main")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/HIVE-PGSQL.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 MILLER
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 FORD
8 MILLER
com.oracle.truffle.r.test/tests/PGSQL-HBASE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "HBase", "hbase-site.xml", "default")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "PostgreSQL", "postgre.config", "public")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/PGSQL-HBASE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 MILLER
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 FORD
8 MILLER
com.oracle.truffle.r.test/tests/PGSQL-HIVE.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "Hive", "hive.config", "main")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "PostgreSQL", "postgre.config", "public")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/PGSQL-HIVE.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 MILLER
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 FORD
8 MILLER
com.oracle.truffle.r.test/tests/PGSQL-PGSQL.R 0 → 100644
+ 25
− 0
View file @ 531db63a
# Returns the exchange rate between rfrom and rto
getRate = function(rfrom, rto)
{
change = new.tableRef("change", "PostgreSQL", "postgre.config", "public")
rate = query.force(query.where(function (r) r$cfrom == rfrom && r$cto == rto,
query.from(change)))
if (rfrom == rto) 1.0 else rate$change
}
# Returns the names of employees earning at least minSalary in the curr
# currency
atLeast = function(minSalary, curr)
{
emp = new.tableRef("emp", "PostgreSQL", "postgre.config", "public")
query.select(function (e) { r = new.env()
r$name = e$ename
r },
query.where(function (e) e$sal >= minSalary * getRate("USD", curr),
query.from(emp)))
}
richUSPeople = atLeast(2000.0, "USD")
richEURPeople = atLeast(2000.0, "EUR")
print(query.force(richUSPeople))
print(query.force(richEURPeople))
com.oracle.truffle.r.test/tests/PGSQL-PGSQL.out 0 → 100644
+ 18
− 0
View file @ 531db63a
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 MILLER
name
1 SMITH
2 ALLEN
3 WARD
4 JONES
5 SCOTT
6 ADAMS
7 FORD
8 MILLER
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment