@ -1,7 +1,8 @@
defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
use BlockScoutWeb.ConnCase use BlockScoutWeb.ConnCase
import BlockScoutWeb.Router.Helpers , only : [ address_internal_transaction_path : 3 ] import BlockScoutWeb.Router.Helpers ,
only : [ address_internal_transaction_path : 3 , address_internal_transaction_path : 4 ]
alias Explorer.Chain . { Block , InternalTransaction , Transaction } alias Explorer.Chain . { Block , InternalTransaction , Transaction }
alias Explorer.ExchangeRates.Token alias Explorer.ExchangeRates.Token
@ -21,6 +22,14 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
assert html_response ( conn , 404 ) assert html_response ( conn , 404 )
end end
test " includes USD exchange rate value for address in assigns " , %{ conn : conn } do
address = insert ( :address )
conn = get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) )
assert % Token { } = conn . assigns . exchange_rate
end
test " returns internal transactions for the address " , %{ conn : conn } do test " returns internal transactions for the address " , %{ conn : conn } do
address = insert ( :address ) address = insert ( :address )
@ -47,29 +56,101 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
transaction_index : transaction . index transaction_index : transaction . index
) )
path = address_internal_transaction_path ( conn , :index , address ) path = address_internal_transaction_path ( conn , :index , address , %{ " type " = > " JSON " } )
conn = get ( conn , path ) conn = get ( conn , path )
actual_internal_transaction_primary_keys = internal_transaction_tiles = json_response ( conn , 200 ) [ " items " ]
Enum . map ( conn . assigns . internal_transactions , & { &1 . transaction_hash , &1 . index } )
assert Enum . all? ( [ from_internal_transaction , to_internal_transaction ] , fn internal_transaction ->
Enum . any? ( internal_transaction_tiles , fn tile ->
String . contains? ( tile , to_string ( internal_transaction . transaction_hash ) ) &&
String . contains? ( tile , " data-internal-transaction-index= \" #{ internal_transaction . index } \" " )
end )
end )
end
test " returns internal transactions coming from the address " , %{ conn : conn } do
address = insert ( :address )
transaction =
:transaction
|> insert ( )
|> with_block ( insert ( :block , number : 1 ) )
from_internal_transaction =
insert ( :internal_transaction ,
transaction : transaction ,
from_address : address ,
index : 1 ,
block_number : transaction . block_number ,
transaction_index : transaction . index
)
to_internal_transaction =
insert ( :internal_transaction ,
transaction : transaction ,
to_address : address ,
index : 2 ,
block_number : transaction . block_number ,
transaction_index : transaction . index
)
path = address_internal_transaction_path ( conn , :index , address , %{ " filter " = > " from " , " type " = > " JSON " } )
conn = get ( conn , path )
assert Enum . member? ( internal_transaction_tiles = json_response ( conn , 200 ) [ " items " ]
actual_internal_transaction_primary_keys ,
{ from_internal_transaction . transaction_hash , from_internal_transaction . index }
)
assert Enum . member? ( assert Enum . any? ( internal_transaction_tiles , fn tile ->
actual_internal_transaction_primary_keys , String . contains? ( tile , to_string ( from_internal_transaction . transaction_hash ) ) &&
{ to_internal_transaction . transaction_hash , to_internal_transaction . index } String . contains? ( tile , " data-internal-transaction-index= \" #{ from_internal_transaction . index } \" " )
) end )
refute Enum . any? ( internal_transaction_tiles , fn tile ->
String . contains? ( tile , to_string ( to_internal_transaction . transaction_hash ) ) &&
String . contains? ( tile , " data-internal-transaction-index= \" #{ to_internal_transaction . index } \" " )
end )
end end
test " includes USD exchange rate value for address in assigns " , %{ conn : conn } do test " returns internal transactions going to the addres s" , %{ conn : conn } do
address = insert ( :address ) address = insert ( :address )
conn = get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) ) transaction =
:transaction
|> insert ( )
|> with_block ( insert ( :block , number : 1 ) )
assert % Token { } = conn . assigns . exchange_rate from_internal_transaction =
insert ( :internal_transaction ,
transaction : transaction ,
from_address : address ,
index : 1 ,
block_number : transaction . block_number ,
transaction_index : transaction . index
)
to_internal_transaction =
insert ( :internal_transaction ,
transaction : transaction ,
to_address : address ,
index : 2 ,
block_number : transaction . block_number ,
transaction_index : transaction . index
)
path = address_internal_transaction_path ( conn , :index , address , %{ " filter " = > " to " , " type " = > " JSON " } )
conn = get ( conn , path )
internal_transaction_tiles = json_response ( conn , 200 ) [ " items " ]
assert Enum . any? ( internal_transaction_tiles , fn tile ->
String . contains? ( tile , to_string ( to_internal_transaction . transaction_hash ) ) &&
String . contains? ( tile , " data-internal-transaction-index= \" #{ to_internal_transaction . index } \" " )
end )
refute Enum . any? ( internal_transaction_tiles , fn tile ->
String . contains? ( tile , to_string ( from_internal_transaction . transaction_hash ) ) &&
String . contains? ( tile , " data-internal-transaction-index= \" #{ from_internal_transaction . index } \" " )
end )
end end
test " returns next page of results based on last seen internal transaction " , %{ conn : conn } do test " returns next page of results based on last seen internal transaction " , %{ conn : conn } do
@ -105,7 +186,6 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
transaction_index : transaction_1 . index transaction_index : transaction_1 . index
) )
end ) end )
|> Enum . map ( & " #{ &1 . transaction_hash } . #{ &1 . index } " )
transaction_2_hashes = transaction_2_hashes =
1 . . 20 1 . . 20
@ -119,7 +199,6 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
transaction_index : transaction_2 . index transaction_index : transaction_2 . index
) )
end ) end )
|> Enum . map ( & " #{ &1 . transaction_hash } . #{ &1 . index } " )
transaction_3_hashes = transaction_3_hashes =
1 . . 10 1 . . 10
@ -133,9 +212,8 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
transaction_index : transaction_3 . index transaction_index : transaction_3 . index
) )
end ) end )
|> Enum . map ( & " #{ &1 . transaction_hash } . #{ &1 . index } " )
second_page_hashes = transaction_1_hashes ++ transaction_2_hashes ++ transaction_3_hashes second_page = transaction_1_hashes ++ transaction_2_hashes ++ transaction_3_hashes
% InternalTransaction { index : index } = % InternalTransaction { index : index } =
insert ( insert (
@ -151,15 +229,18 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) , %{ get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) , %{
" block_number " = > Integer . to_string ( b_block . number ) , " block_number " = > Integer . to_string ( b_block . number ) ,
" transaction_index " = > Integer . to_string ( transaction_3 . index ) , " transaction_index " = > Integer . to_string ( transaction_3 . index ) ,
" index " = > Integer . to_string ( index ) " index " = > Integer . to_string ( index ) ,
" type " = > " JSON "
} ) } )
actual_hashes = internal_transaction_tiles = json_response ( conn , 200 ) [ " items " ]
conn . assigns . internal_transactions
|> Enum . map ( & " #{ &1 . transaction_hash } . #{ &1 . index } " )
|> Enum . reverse ( )
assert second_page_hashes == actual_hashes assert Enum . all? ( second_page , fn internal_transaction ->
Enum . any? ( internal_transaction_tiles , fn tile ->
String . contains? ( tile , to_string ( internal_transaction . transaction_hash ) ) &&
String . contains? ( tile , " data-internal-transaction-index= \" #{ internal_transaction . index } \" " )
end )
end )
end end
test " next_page_params exist if not on last page " , %{ conn : conn } do test " next_page_params exist if not on last page " , %{ conn : conn } do
@ -184,10 +265,17 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
) )
end ) end )
conn = get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) ) conn =
get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash , %{ " type " = > " JSON " } ) )
assert %{ " block_number " = > ^ number , " index " = > 11 , " transaction_index " = > ^ transaction_index } = expected_response =
conn . assigns . next_page_params address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash , %{
" block_number " = > number ,
" index " = > 11 ,
" transaction_index " = > transaction_index
} )
assert expected_response == json_response ( conn , 200 ) [ " next_page_path " ]
end end
test " next_page_params are empty if on last page " , %{ conn : conn } do test " next_page_params are empty if on last page " , %{ conn : conn } do
@ -208,9 +296,10 @@ defmodule BlockScoutWeb.AddressInternalTransactionControllerTest do
) )
end ) end )
conn = get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash ) ) conn =
get ( conn , address_internal_transaction_path ( BlockScoutWeb.Endpoint , :index , address . hash , %{ " type " = > " JSON " } ) )
refute conn . assigns . next_page_params assert %{ " next_page_path " = > nil } = json_response ( conn , 200 )
end end
end end
end end
Andrew Cravenho
6 years ago
committed by
GitHub