Extracting values from statistical tests

Hello I am try to extract the result for the "p-value for T" for the stationarity test, which in this case is 0, but I cannot seem to do it using R.

    > stationarity(lg.day.ret)
1
2
3
4
5
6
N = 2609, nblock = 11, n_block_max = 238, dt =     1.0000
7
8
9
10
11
12
13
14
15
16
17
18
Priestley-Subba Rao stationarity Test for lg.day.ret
----------------------------------------------------
Samples used              : 2609 
Samples available         : 2607 
Sampling interval         : 1 
SDF estimator             : Multitaper 
  Number of (sine) tapers : 5 
  Centered                : TRUE 
  Recentered              : FALSE 
Number of blocks          : 11 
Block size                : 237 
Number of blocks          : 11 
p-value for T             : 0 
p-value for I+R           : 0.08981712 
p-value for T+I+R         : 0 

I have tried $p.value and

test <- with(Moore,stationarity(lg.day.ret))
str(test)
test$`p-value for T`

but none of these seem to work. Thanks in advance.