:- module(lit,
          [ lit/0
          ]).
:- include('../local_test').

:- use_module(library(semweb/rdf_db)).

data(string, '').
data(string, 'This is a nice string').

data(int, 0).
data(int, -67).
data(int, 327848).

data(float, 0.0).
data(float, 48.25).

data(term, [let, us, test, a, list]).
data(term, [let, us, test, another, list]).

create :-
    (   data(Type, Value),
        rdf_assert(subject, Type, literal(Value)),
        fail
    ;   true
    ).

lookup :-
    findall(T-V, (rdf(subject, T, X), X = literal(V)), Pairs),
    findall(T-V, data(T, V), Data),
    Data == Pairs.


                 /*******************************
                 *              MAIN            *
                 *******************************/

lit :-
    rdf_reset_db,
    create,
    lookup.