101 lines
9.8 KiB
Plaintext
101 lines
9.8 KiB
Plaintext
|
|
||
|
|
:- 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.
|
||
|
|
|
||
|
|
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).
|
||
|
|
|
||
|
|
test(import) :-
|
||
|
|
db_import('artists', user:artists),
|
||
|
|
db_import('albums', user:albums),
|
||
|
|
db_import('tracks', user: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-
|
||
|
|
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),
|
||
|
|
!.
|
||
|
|
|
||
|
|
test(select_with_1st, true(Y == 'Nação Zumbi')) :-
|
||
|
|
artists(191, Y), !.
|
||
|
|
|
||
|
|
test(select_with_2st, true(X == 97)) :-
|
||
|
|
artists(X, 'João Suplicy'),
|
||
|
|
!.
|
||
|
|
|
||
|
|
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.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
:- end_tests(sqlite3).
|
||
|
|
|
||
|
|
:- run_tests.
|
||
|
|
|