diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

debugger

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-11-23 14:00:20 +00:00
parent 999de8df19
commit 0230ff35d1
8 changed files with 29 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
packages/myddas/pl/myddas.ypp
View File

@@ -263,9 +263,9 @@ db_open(odbc,Connection,ODBCEntry,User,Password) :-
%% sqlite3
db_open(sqlite3,Connection,File,User,Password) :-
absolute_file_name(File,DB,[extensions(db),access(write),file_type(myddas),expand(true)]),
'$error_checks'(db_open(sqlite3,Connection,File,User,Password)),
c_sqlite3_connect(File,User,Password,Con),
absolute_file_name(File,Db,[extensions(db),access(write),file_type(myddas),expand(true)]),
'$error_checks'(db_open(sqlite3,Connection,Db,User,Password)),
c_sqlite3_connect(Db,User,Password,Con),
set_value(Connection,Con).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

12
packages/myddas/sqlite3/sqlitest.yap
View File

@@ -7,13 +7,13 @@
:- begin_tests(sqlite3).
:- if( yap_flag(android,true) ).
test(open) :-
db_open(sqlite3, '/data/user/0/pt.up.yap/files/chinook.db', _, _).
:- else.
%:- if( yap_flag(android,true) ).
%test(open) :-
% db_open(sqlite3, '/data/user/0/pt.up.yap/files/chinook.db', _, _).
%:- else.
test(open) :-
db_open(sqlite3,dataset('chinook'),_,_).
:-endif.
%:-endif.
test(schema0, all((Tables ==[(table albums),
(table artists),
@@ -40,7 +40,7 @@ test(all_artists, all((
273-'C. Monteverdi, Nigel Rogers - Chiaroscuro; London Baroque; London Cornett & Sackbu',
274-'Nash Ensemble',
275-'Philip Glass Ensemble'] ))) :-
artists(X,Y).
findall(X-Y,artists(X,Y),L).
test(cut_artists, true((X-Y == 1-'AC/DC'))) :-
artists(X, Y),