diff --git a/packages/myddas/sqlite3/sqlitest.yap b/packages/myddas/sqlite3/sqlitest.yap index 75601d911..b34bf2384 100644 --- a/packages/myddas/sqlite3/sqlitest.yap +++ b/packages/myddas/sqlite3/sqlitest.yap @@ -1,100 +1,98 @@ -:- use_module(library(plunit)). - -:- begin_tests(sqlite3). :- use_module(library(lists)). :- use_module(library(maplist)). :- use_module(library(myddas)). -:- if( current_prolog_flag(android,true) ). -test(db_open) :- - db_open(sqlite3, '/data/user/0/pt.up.yap/files/chinook.db', _, _). -:- else. -test(db_open) :- - db_open(sqlite3,myddas,dataset('chinook.db'),_,_). -:-endif. +main :- + init, + main_, + close. +main_ :- + catch(go,E,writeln(E)), + fail. +main_ . -test(schema0, all((Desc ==[(table albums), - (table artists), - (table customers), - (table employees), - (table genres), - (table invoice_items), - (table invoices), - (table media_types), - (table playlist_track), - (table playlists), - (table sqlite_sequence), - (table sqlite_stat1),(table tracks)]))) :- - db_show_tables(myddas,Desc). +init :- + catch(db_open(sqlite3,data('chinook.db'),_,_), _, fail), + % db_open(sqlite3, 'chinook.db', _, _), + writeln('chinook has landed'). -test(import) :- - db_import('artists', user:artists), - db_import('albums', user:albums), - db_import('tracks', user:tracks). +go :- + writeln(('db_import')), + db_import('artists', artists), + writeln(('artist -> artists')), + db_import('albums', albums), + writeln(('albums -> albums')), + db_import('tracks', tracks), + writeln(('tracks -> tracks')). -test(all_artists, all(( - X-Y == [1-'AC/DC',2-'Accept',3-'Aerosmith',4-'Alanis Morissette',5-'Alice In Chains',6-'Antônio Carlos Jobim',7-'Apocalyptica',8-'Audioslave',9-'BackBeat',10-'Billy Cobham',11-'Black Label Society',12-'Black Sabbath',13-'Body Count',14-'Bruce Dickinson',15-'Buddy Guy',16-'Caetano Veloso',17-'Chico Buarque',18-'Chico Science & Nação Zumbi',19-'Cidade Negra',20-'Cláudio Zoli',21-'Various Artists',22-'Led Zeppelin',23-'Frank Zappa & Captain Beefheart',24-'Marcos Valle',25-'Milton Nascimento & Bebeto',26-'Azymuth',27-'Gilberto Gil',28-'João Gilberto',29-'Bebel Gilberto',30-'Jorge Vercilo',31-'Baby Consuelo',32-'Ney Matogrosso',33-'Luiz Melodia',34-'Nando Reis',35-'Pedro Luís & A Parede',36-'O Rappa',37-'Ed Motta',38-'Banda Black Rio',39-'Fernanda Porto',40-'Os Cariocas',41-'Elis Regina',42-'Milton Nascimento',43-'A Cor Do Som',44-'Kid Abelha',45-'Sandra De Sá',46-'Jorge Ben',47-'Hermeto Pascoal',48-'Barão Vermelho',49-'Edson, DJ Marky & DJ Patife Featuring Fernanda Porto',50-'Metallica',51-'Queen',52-'Kiss',53-'Spyro Gyra',54-'Green Day',55-'David Coverdale',56-'Gonzaguinha',57-'Os Mutantes',58-'Deep Purple',59-'Santana',60-'Santana Feat. Dave Matthews',61-'Santana Feat. Everlast',62-'Santana Feat. Rob Thomas',63-'Santana Feat. Lauryn Hill & Cee-Lo',64-'Santana Feat. The Project G&B',65-'Santana Feat. Maná',66-'Santana Feat. Eagle-Eye Cherry',67-'Santana Feat. Eric Clapton',68-'Miles Davis',69-'Gene Krupa',70-'Toquinho & Vinícius',71-'Vinícius De Moraes & Baden Powell',72-'Vinícius De Moraes',73-'Vinícius E Qurteto Em Cy',74-'Vinícius E Odette Lara',75-'Vinicius, Toquinho & Quarteto Em Cy',76-'Creedence Clearwater Revival',77-'Cássia Eller',78-'Def Leppard',79-'Dennis Chambers',80-'Djavan',81-'Eric Clapton',82-'Faith No More',83-'Falamansa',84-'Foo Fighters',85-'Frank Sinatra',86-'Funk Como Le Gusta',87-'Godsmack',88-'Guns N\' Roses',89-'Incognito',90-'Iron Maiden',91-'James Brown',92-'Jamiroquai',93-'JET',94-'Jimi Hendrix',95-'Joe Satriani',96-'Jota Quest',97-'João Suplicy',98-'Judas Priest',99-'Legião Urbana',100-'Lenny Kravitz',101-'Lulu Santos',102-'Marillion',103-'Marisa Monte',104-'Marvin Gaye',105-'Men At Work',106-'Motörhead',107-'Motörhead & Girlschool',108-'Mônica Marianno',109-'Mötley Crüe',110-'Nirvana',111-'O Terço',112-'Olodum',113-'Os Paralamas Do Sucesso',114-'Ozzy Osbourne',115-'Page & Plant',116-'Passengers',117-'Paul D\'Ianno',118-'Pearl Jam',119-'Peter Tosh',120-'Pink Floyd',121-'Planet Hemp',122-'R.E.M. Feat. Kate Pearson',123-'R.E.M. Feat. KRS-One',124-'R.E.M.',125-'Raimundos',126-'Raul Seixas',127-'Red Hot Chili Peppers',128-'Rush',129-'Simply Red',130-'Skank',131-'Smashing Pumpkins',132-'Soundgarden',133-'Stevie Ray Vaughan & Double Trouble',134-'Stone Temple Pilots',135-'System Of A Down',136-'Terry Bozzio, Tony Levin & Steve Stevens',137-'The Black Crowes',138-'The Clash',139-'The Cult',140-'The Doors',141-'The Police',142-'The Rolling Stones',143-'The Tea Party',144-'The Who',145-'Tim Maia',146-'Titãs',147-'Battlestar Galactica',148-'Heroes',149-'Lost',150-'U2',151-'UB40',152-'Van Halen',153-'Velvet Revolver',154-'Whitesnake',155-'Zeca Pagodinho',156-'The Office',157-'Dread Zeppelin',158-'Battlestar Galactica (Classic)',159-'Aquaman',160-'Christina Aguilera featuring BigElf',161-'Aerosmith & Sierra Leone\'s Refugee Allstars',162-'Los Lonely Boys',163-'Corinne Bailey Rae',164-'Dhani Harrison & Jakob Dylan',165-'Jackson Browne',166-'Avril Lavigne',167-'Big & Rich',168-'Youssou N\'Dour',169-'Black Eyed Peas',170-'Jack Johnson',171-'Ben Harper',172-'Snow Patrol',173-'Matisyahu',174-'The Postal Service',175-'Jaguares',176-'The Flaming Lips',177-'Jack\'s Mannequin & Mick Fleetwood',178-'Regina Spektor',179-'Scorpions',180-'House Of Pain',181-'Xis',182-'Nega Gizza',183-'Gustavo & Andres Veiga & Salazar',184-'Rodox',185-'Charlie Brown Jr.',186-'Pedro Luís E A Parede',187-'Los Hermanos',188-'Mundo Livre S/A',189-'Otto',190-'Instituto',191-'Nação Zumbi',192-'DJ Dolores & Orchestra Santa Massa',193-'Seu Jorge',194-'Sabotage E Instituto',195-'Stereo Maracana',196-'Cake',197-'Aisha Duo',198-'Habib Koité and Bamada',199-'Karsh Kale',200-'The Posies',201-'Luciana Souza/Romero Lubambo',202-'Aaron Goldberg',203-'Nicolaus Esterhazy Sinfonia',204-'Temple of the Dog',205-'Chris Cornell',206-'Alberto Turco & Nova Schola Gregoriana',207-'Richard Marlow & The Choir of Trinity College, Cambridge',208-'English Concert & Trevor Pinnock',209-'Anne-Sophie Mutter, Herbert Von Karajan & Wiener Philharmoniker',210-'Hilary Hahn, Jeffrey Kahane, Los Angeles Chamber Orchestra & Margaret Batjer',211-'Wilhelm Kempff',212-'Yo-Yo Ma',213-'Scholars Baroque Ensemble',214-'Academy of St. Martin in the Fields & Sir Neville Marriner',215-'Academy of St. Martin in the Fields Chamber Ensemble & Sir Neville Marriner',216-'Berliner Philharmoniker, Claudio Abbado & Sabine Meyer',217-'Royal Philharmonic Orchestra & Sir Thomas Beecham',218-'Orchestre Révolutionnaire et Romantique & John Eliot Gardiner',219-'Britten Sinfonia, Ivor Bolton & Lesley Garrett',220-'Chicago Symphony Chorus, Chicago Symphony Orchestra & Sir Georg Solti',221-'Sir Georg Solti & Wiener Philharmoniker',222-'Academy of St. Martin in the Fields, John Birch, Sir Neville Marriner & Sylvia McNair',223-'London Symphony Orchestra & Sir Charles Mackerras',224-'Barry Wordsworth & BBC Concert Orchestra',225-'Herbert Von Karajan, Mirella Freni & Wiener Philharmoniker',226-'Eugene Ormandy',227-'Luciano Pavarotti',228-'Leonard Bernstein & New York Philharmonic',229-'Boston Symphony Orchestra & Seiji Ozawa',230-'Aaron Copland & London Symphony Orchestra',231-'Ton Koopman',232-'Sergei Prokofiev & Yuri Temirkanov',233-'Chicago Symphony Orchestra & Fritz Reiner',234-'Orchestra of The Age of Enlightenment',235-'Emanuel Ax, Eugene Ormandy & Philadelphia Orchestra',236-'James Levine',237-'Berliner Philharmoniker & Hans Rosbaud',238-'Maurizio Pollini',239-'Academy of St. Martin in the Fields, Sir Neville Marriner & William Bennett',240-'Gustav Mahler',241-'Felix Schmidt, London Symphony Orchestra & Rafael Frühbeck de Burgos',242-'Edo de Waart & San Francisco Symphony',243-'Antal Doráti & London Symphony Orchestra',244-'Choir Of Westminster Abbey & Simon Preston',245-'Michael Tilson Thomas & San Francisco Symphony',246-'Chor der Wiener Staatsoper, Herbert Von Karajan & Wiener Philharmoniker',247-'The King\'s Singers',248-'Berliner Philharmoniker & Herbert Von Karajan',249-'Sir Georg Solti, Sumi Jo & Wiener Philharmoniker',250-'Christopher O\'Riley',251-'Fretwork',252-'Amy Winehouse',253-'Calexico',254-'Otto Klemperer & Philharmonia Orchestra',255-'Yehudi Menuhin',256-'Philharmonia Orchestra & Sir Neville Marriner',257-'Academy of St. Martin in the Fields, Sir Neville Marriner & Thurston Dart',258-'Les Arts Florissants & William Christie',259-'The 12 Cellists of The Berlin Philharmonic',260-'Adrian Leaper & Doreen de Feis',261-'Roger Norrington, London Classical Players',262-'Charles Dutoit & L\'Orchestre Symphonique de Montréal',263-'Equale Brass Ensemble, John Eliot Gardiner & Munich Monteverdi Orchestra and Choir',264-'Kent Nagano and Orchestre de l\'Opéra de Lyon',265-'Julian Bream',266-'Martin Roscoe',267-'Göteborgs Symfoniker & Neeme Järvi',268-'Itzhak Perlman',269-'Michele Campanella',270-'Gerald Moore',271-'Mela Tenenbaum, Pro Musica Prague & Richard Kapp', -272-'Emerson String Quartet', -273-'C. Monteverdi, Nigel Rogers - Chiaroscuro; London Baroque; London Cornett & Sackbu', -274-'Nash Ensemble', -275-'Philip Glass Ensemble'] ))) :- - artists(X,Y). -test(cut_artists, true((X-Y == 1-'AC/DC'))) :- - artists(X, Y), +go :- +% X=1, + artists(X,Y), + writeln(X:Y). +go :- + writeln(db_get_attributes_types), + db_get_attributes_types(albums,Als), + format('~w -> ~w~n',[albums,Als]), + db_get_attributes_types(tracks,Ts), + format('~w -> ~w~n',[tracks,Ts]), + db_get_attributes_types(artists,As), + format('~w -> ~w~n',[artists,As]). +go :- + writeln(db_number_of_fields), + db_number_of_fields(albums,Als), + db_number_of_fields(tracks,Ts), + db_number_of_fields(artists,As), + writeln(As:Als:Ts). + +go :- + + db_describe(albums, Desc), writeln(albums:Desc). +go :- + db_describe(tracks, Desc), writeln(tracks:Desc). +go :- + db_describe(artists, Desc), writeln(artists:Desc). +go :- + db_show_tables(Desc), writeln(tables:Desc). +go :- + db_show_tables(table(T)), + db_describe(T,tableinfo(FieldID,Type,Null,Primary,Default,'')), + writeln(T:tableinfo(FieldID,Type,Null,Primary,Default,'')). + + +go :- + writeln(access), + go_cut0. + + +go :- +%stop_low_level_trace, + findall(X:Y,artists(X,Y),Ls), + length(Ls,Total), + sort(Ls, LLs), + length(LLs, T), + writeln(T:Total). + +go :- + go_cut1. + +go_cut0 :- + artists(X,Y), + writeln(X:Y), !. -test(select_with_1st, true(Y == 'Nação Zumbi')) :- - artists(191, Y), !. -test(select_with_2st, true(X == 97)) :- - artists(X, 'João Suplicy'), +go_cut1 :- +% X=1, + artists(X,Y), + writeln(X:Y), !. -test(join, true((A == 'AC/DC', - AId == 1, - Artist == 1, - GId == 1, - I == 1, - MId == 1, - T == 1, - Bs == 11170334, - CId == 'Angus Young, Malcolm Young, Brian Johnson', - Msec == 343719, - N == 'For Those About To Rock (We Salute You)', - P == 0.9900000000000000, - Tit == 'For Those About To Rock We Salute You'))) :- - artists(I,A), - tracks(T,N,AId,MId,GId,CId,Msec,Bs,P), - albums(AId,Tit,Artist), - !. - -test(att_types, true((Als == ['AlbumId','','Title','','ArtistId',''], - As == ['ArtistId','','Name',''], - Ts == ['TrackId','','Name','','AlbumId','','MediaTypeId','','GenreId','', - 'Composer','','Milliseconds','','Bytes','','UnitPrice','']))) :- - ., - db_get_attributes_types(tracks,Ts), - db_get_attributes_types(artists,As). - -test(nb_atts, true((Als = 3, As = 2,Ts = 9 ))) :- - db_number_of_fields(albums,Als), - db_number_of_fields(tracks,Ts), - db_number_of_fields(artists,As). - -test(describe, all((Als == [tableinfo('AlbumId','INTEGER',1,1,null(0),''), - tableinfo('Title','NVARCHAR(160)',1,0,null(1),''), - tableinfo('ArtistId','INTEGER',1,0,null(2),'')]))) :- - db_describe(albums, Als). - -test(close) :- - db_close. +close :- + db_close. -:- end_tests(sqlite3). - -:- run_tests. - +:- initialization(main).